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'O Ordenadores, 
minis y micros 


NO de los puntos más 
ambiguos en el cam- 
po informático se 
refiere a la clasifica- 
ción de computado- 
res. Una primera divi- 
sión se podría basar 
en el tamaño, capa- 
cidad y potencia. Atendiendo a estos 
puntos, los grupos principales serían: or- 
denadores, miniordenadores y microor- 
denadores. Sin embargo, profundizando 
más en el tema aún podríamos añadir or- 
denadores mucho más potentes como: 
mainframes, superordenadores y ordena- 
dores especializados. 

En este tema nos vamos a dedicar a es- 
tudiar detenidamente cada uno de estos 
grupos. 


O Ordenadores 


Dentro de este tipo se encuentran 
aquéllos que realizan muchos trabajos al 
día, es decir, son los utilizados en empre- 
sas donde se necesita procesar gran 
cantidad de datos. Esto supone que di- 
chos ordenadores tengan una serie de 
características fundamentales: 


— Al tener que tratar mucha informa- 
ción, la cantidad de datos con que tra- 
bajan será bastante alta; esto requiere 
unas memorias principales con gran ca- 
pacidad. 

— Por otro lado, como en las empre- 
sas normalmente se tienen fuertes restric- 
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ciones de tiempo, las exigencias en 
cuanto a rapidez en el proceso de infor- 
mación también son grandes. Por esto es 
necesaria la utilización de programas de 
alto nivel cuyas instrucciones son com- 
plejas. Este punto influiría también en que 
las memorias no son sólo de gran capa- 
cidad, sino también de gran rapidez. 

— Normalmente, la adopción de gran- 
des ordenadores obliga a realizar fuertes 
inversiones, tanto por lo caros que resul- 
tan los equipos, como por las instalacio- 
nes que requieren: locales auxiliares am- 
plios y diáfanos, dotados de aire acondi- 
cionado, etc. 

7 En cuanto al equipo humano, no 
solo tiene que ser numeroso, sino que, 
además, debe estar especializado en los 
lenguajes de explotación y manipula- 
ción del equipo. 


'Q Miniordenadores 


Cuando la complejidad o las caracte- 
rísticas de las aplicaciones no requieren 
la utilización de equipos tan grandes, se 
recomienda instalar este otro tipo. Aun- 
que de tamaño reducido, al igual que su 
costo, sus funciones son las mismas que 
las de los ordenadores. 


— Las memorias, por tanto, también 
serán más pequeñas; nunca necesitarán 
almacenar tanta información como en el 
primer caso. 

— Generalmente sólo ejecuta un pro- 
grama cada vez. 

— Esta característica anterior repercu- 
te en que el número de usuarios que ac- 
ceden a la vez será más restringido. 


En cuanto a las aplicaciones que sue- 
len realizar están: 


— Control de procesos: es capaz de 
determinar el estado de un proceso y lle- 
var a cabo su corrección, si es preciso, 
mediante las señales que capta y emite. 
Como ejemplo, podría ser el control de 
calidad, inspección material, etc. 

— Comunicaciones: en este campo es 
donde los minis se encuentran en cons- 
tante desarrollo. Sus aplicaciones típicas 
son: reserva de billetes, transmisión de 
mensajes, etc. 

— Sistemas de información: aunque 
estas aplicaciones son más típicas de los 
ordenadores más grandes, también los 
minis pueden realizar estas labores típi- 
cas de mecanización, como los sistemas 
comerciales, financieros, de gestión, etc. 


CHIP 


LA Los circuitos integrados en una sola 


pastilla (CHIP) ha sido determinante para 
la aparición de los “minis” y “micros”. 


jm Microordenadores 


El tamaño es el más reducido de toda 
la clasificación. El descubrimiento del si- 
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licio ha hecho que la CPU, que en un prin- 
cipio estaba compuesta por multitud de 
transistores, quede muy reducida en 
cuanto a tamaño con la posibilidad de 
integrar todos sus componentes en una 
única pastilla. Es muy difícil prever el de- 
sarrollo en la reducción de componen- 
tes, sin embargo, con los nuevos avances 
en fotolitografía (grabación por medio 
de la acción de la luz) se conseguirá una 
mayor integración de los componentes. 

Por tanto, las principales característi- 
cas de los microordenadores son: 


— Están compuestos internamente de 
una única pastilla de CPU, es decir, sólo 
un procesador es el responsable del fun- 
cionamiento de todo el micro. 

— Las instrucciones utilizadas en los 
programas también son más sencillas, 
actuando sobre palabras de 4, 8, o 16 
bits. 

— El precio es bastante bajo, en com- 
paración con los otros grupos vistos an- 
teriormente; esto ha contribuido a su 
gran difusión, sobre todo en el campo de 
la enseñanza. 

— Se ha restringido su uso a aplicacio- 
nes particulares, como: 

— Control de periféricos: pudiendo la 
CPU quedar libre para ejecutar otras ta- 
reas. 

— Toma de datos: el micro puede re- 
cibir datos de diversas fuentes, los pue- 
de tratar según el programa que esté 
cargado. 


A Otra forma de poder ampliar las posibilidades de acceso a mayor volumen de información 
es la conexión de micros mediante las llamadas REDES DE ORDENADORES. 
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O Mainframes 


La avidez de información ha hecho que 
los pequeños usuarios tengan necesidad 
de comunicarse con los grandes ordena- 
dores y así tener acceso a grandes can- 
tidades de información, que en un pe- 
queño ordenador no sería posible alma- 
cenar. Basándose en esta necesidad, las 
grandes empresas fabricantes de orde- 
nadores han creado los “mainframes”, 
de manera que sus micros y miniordena- 
dores puedan ser conectados a éstos y 
ampliar así su relativamente pequeña 
capacidad. 

Los principales usuarios de este tipo de 
relación son los centros de cálculo, que, 
disponiendo de un ordenador grande, 
conectan a su alrededor una serie de pe- 
queños ordenadores que juntos crean un 
potente sistema, pudiendo a su vez fun- 
cionar autónomamente. Al estar com- 
puesto por ordenadores de bajo coste 
este sistema se hace enormemente eficaz. 


Características de los mainframes 


— Los mainframes se diferencian de 
los minis y microordenadores en que 
mientras los minis y micros han sido dise- 
ñados para tareas específicas, los main- 
frames pueden ser utilizados en todo tipo 
de tareas. Si bien es cierto que los micros 
y minis son utilizados en la actualidad 
para todo tipo de tareas. 

— Debido al alto coste de los mainfra- 
mes, su número es bastante reducido; sin 
embargo, su potencial es mucho mayor 
y su utilidad supera con mucho a la de 
los pequeños equipos. A pesar de todo, 
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MIENTO e CIAO 


Q 


MICRO-N 


MICRO-2 


MICRO-4 


un gran sistema desde pequeño equipo 
se hacen conexiones entre los grandes 
ordenadores y microordenadores compatibles. 


[A Para poder acceder a la información de 


MAINFRAME 


la ventaja de los pequeños ordenadores 
en su relación precio-potencia sigue 
siendo muy superior. 

— Con la aparición de los micros y mi- 
niordenadores, se han creado una serie 
de empresas, dedicadas al diseño de 
software específico para los mainframes, 
provocándose así una importante dife- 
rencia entre unos y otros. 


m Ordenadores especializados 


La gran variedad de posibilidades que 
ofrece hoy la informática ha hecho que 
las empresas que deciden informatizar su 
funcionamiento soliciten la creación de 
equipos informáticos especialmente 
diseñados para éstas, de manera que 
puedan ser satistechas sus necesidades. 

Sería imposible catalogar todos estos 
equipos, pues su crecimiento es cada 
vez mayor y abarca prácticamente todos 
los campos y facetas posibles. 

Podemos tomar como ordenadores es- 
pecializados más importantes, en base a 
su gran desarrollo: el procesador de imá- 
genes, los sistemas robots y el sistema de 
diseño mecanizado. 


Procesador de imágenes 


Este sistema ha sido muy desarrollado; 
en la actualidad han conseguido mejo- 
rar, incluso, la fotografía original. El pro- 
ceso consiste en convertir la información 
que proporciona una imagen dada a in- 
formación digital, para su posterior mani- 
pulación con el ordenador. De esta for- 
ma podemos mejorar la calidad de una 
imagen que no esté en condiciones óp- 
timas, si conocemos las razones de su fal- 
ta de calidad y las rectificamos. 

Para la conversión de la imagen ana- 
lógica en digital, utilizamos un aparato 
llamado “microdensimetro”. Este hace 
pasar un haz de luz colimado (es decir, 
cuyos rayos son paralelos) a través de la 
imagen en un soporte parecido al de la 
diapositiva fotográfica. La luz que pasa a 
través de la fotografía es recogida y 
transformada en impulsos analógicos por 
medio de un “fotomultiplicador”, que ge- 
nera una señal eléctrica cuya intensidad 
está en función del brillo de cada punto 
de imagen. Después, la señal analógica 
es digitalizada con un cuantizador, que 
lo transmite al ordenador. Este sistema no 


sólo permite mejorar una imagen sino 
que también podemos describir ésta me- 
diante escritura, lo que permite hacer el 
proceso contrario, a partir de información 
escrita podemos obtener una imagen. 


Sistemas robot 


Los robots actuales tienen su origen en 
los autómatas que aparecieron en Euro- 
pa en los siglos XVIIl y XIX, aunque en 
esta época eran considerados como 
algo “mágico”. 

Actualmente, puede hablarse clara- 
mente de dos tipos de robots. Los prime- 
ros son los dependientes de un ordena- 
dor central que les facilita la información 
para desempeñar una determinada fun- 
ción. Estos se utilizan ya en empresas y 
cadenas de montaje, siendo capaces in- 
cluso de tomar decisiones no determina- 
das “a priori”, pero siempre dentro de un 
medio predeterminado. La movilidad de 
estos robots está limitada a su medio, es 
decir, a su campo de trabajo. 

El segundo tipo de robots son los llama- 
dos autónomos, es decir, robots capaces 
de determinar el medio en el que se en- 
cuentran y desenvolverse en él. Tal es el 
caso del robot desarrollado en el MIT 
(Massachusetts Institute of Technology), 
que posee tres niveles de “inteligencia”, 
correspondientes a tres etapas super- 
puestas de ordenadores. Un nivel para el 
reconocimiento del espacio y medio en 
que se desenvuelve; un segundo nivel 
para el reconocimiento de obstáculos y 
un tercer nivel que decide cuál es el ca- 
mino más factible para evolucionar. Ac- 
tualmente este tipo de sistemas robots 
está en vías de desarrollo; sin embargo, 
su utilización en actividades que resultan 
peligrosas para el hombre, como puede 
ser la manipulación de materiales ra- 
diactivos, explosivos, etc., está suficien- 
temente probada y justificada. 
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Sistema de diseño mecanizado 


Ha sido creada una serie de ordenado- 
res especializados en el tratamiento de 
diseños. Estos hacen que el proceso que 
transcurre desde que se concibe un dise- 
ño hasta que se elabora sea acortado 
enormemente, puesto que el paso inter- 
medio de su plasmación en el papel ha 
sido automatizado. Un operador, me- 
diante un lápiz óptico, puede mover y 
corregir en muy poco tiempo todo cuan- 
to quiera. 

Actualmente el diseño por ordenador 
está alcanzando unas cotas realmente 
altas, ya que su comodidad y rapidez 
dan lugar a un mayor tiempo para la 
creación. De esta manera, están surgien- 
do nuevas facetas en el diseño por orde- 
nador como es el caso de la “animación 
por ordenador”, que se basa en la crea- 
ción, por medio de complejos progra- 
mas, de imágenes animadas. Este tipo de 
diseño está abarcando todo tipo de 
campos, desde el publicitario, hasta el 
artístico. Sus grandes posibilidades se 
deben a que, como se trabaja en un es- 
pacio totalmente creado, es a su vez to- 
talmente transtormable. 


(m Superordenadores 


Considerados como auténticas rare- 
zas, no existen hoy en el mundo más de 
sesenta superordenadores. Tan sólo al- 
gunas, poderosas, entidades sacan par- 
tido de estas poderosas máquinas (cen- 
tros científicos y militares). 

De momento, sólo hay dos marcas en 
el mercado: los CRAY, de Cray Research 
y los CYBER, de Control Data Corporation; 
aunque hay que destacar los esfuerzos 
de la empresa japonesa FUJITSU, que in- 
tenta introducirse en el reducido grupo. 

Estos ordenadores son los “bichos ra- 
ros” de la informática, se les conoce con 
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[A Pasos necesarios para convertir señales luminosas en señales comprensibles por el 


ordenador especializado en el proceso de imágenes. 
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el nombre de “number crunchers” (tritu- 
radores de números) y es esto lo que 
realmente hacen. No existe entre ellos y 
el hombre un contacto directo (carecen 
de pantallas terminales); de ahí su difícil 
comparación con los mainframes, micros 
y miniordenadores. La comunicación en- 
tre éstos y el hombre se realiza a través 
de uno o varios ordenadores, denomina- 
dos “front-end”. Estos se ocupan de que 
el superordenador no desperdicie ni un 
ápice de su tiempo. 

Los superordenadores se emplean a 
fondo, en la simulación de complicados 
procesos en los llamados “modelos arit- 
méticos de tiempo real”. Algunos institu- 
tos meteorológicos utilizan estos superor- 
denadores para calcular la evolución de 
grandes zonas de bajas presiones. Tam- 
bién son utilizados en el diseño de avio- 
nes donde se encargan de calcular las 


turbulencias de aire alrededor del apa- 
rato; no obstante, los diseñadores han de 
conformarse con estos cálculos en por- 
ciones, a partir de las cuales hacen un 
modelo del total y esperan que funcione. 

Estas poderosas maquinas realizan en- 
tre 20 y 30 millones de operaciones por 
segundo. Sin embargo, es posible conse- 
guir que la unidad de procesamiento, en 
su limite, llegue a producir impulsos cor- 
tos de 400 millones de operaciones por 
segundo. Aun así, los científicos estiman 
que son demasiado lentos. Su gran con- 
sumo y mantenimiento hace que estos 
ordenadores sean exclusivos de unos po- 
cos. Hemos de tener en cuenta que un 
Cray consume tanta electricidad como 
un edificio de oficinas de diez pisos y que 
el calor que produce debe ser disipado 
mediante una instalación de refrigera- 
ción especial a base de freón. 


Unidad Central 
de Procesos 


E suele considerar la 
«Unidad Central de 
Procesos» del orde- 
nador (CPU) como 
una «caja negra», es 
decir, como una uni- 
dad de la que no nos 
importa cómo está 
hecha sino cómo ejecutar las instruccio- 
nes. 

Desde este punto de vista, nos basta 
realmente con la descripción de las ins- 
trucciones con las que prepararemos los 
programas. 


Pero debemos ser conscientes de que 
la CPU es algo sumamente complejo, 
que está constituido por unidades más 
elementales. 

Los principales componentes del mi- 
croprocesador 8088 de Intel que consti- 
tuye la CPU del IBM PC son: 


e Una unidad de cálculo de direccio- 
nes de memoria. 

e Cuatro «registros de segmento» (lla- 
-mados DS, ES, SS y CS). 

e Un «registro apuntador de instruccio- 
nes» (llamado IP). 

* Una unidad de preparación de ins- 
trucciones, que las lee de la memoria y 
las prepara en una cola de instrucciones. 

«e Una unidad de control de ejecución, 
que toma las instrucciones de la cola y 
se las pasa a la unidad de ejecución. 

* Una unidad de ejecución, que es la 
que se encarga en último término de eje- 
cutar las instrucciones, y que se compo- 
ne a su vez de: 


— Una «unidad aritmética lógica», que, 
como su nombre indica, se encarga de 


U 
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realizar las operaciones aritméticas y ló- 
gicas. 

— Cuatro «registros generales» (llama- 
dos AX, BX, CX y DX). 

— Dos «registros indices» (llamados SI 
y Dh). 

— Dos «registros apuntadores» (llama- 
dos SP y BP). 

— Un «registo de flags» compuesto por 
una serie de indicadores que influyen en 
la forma de ejecutarse muchas instruc- 
ciones. 


El siguiente esquema da una idea de la 
relación entre estos componentes: 

si ii 
UNIDAD DE 
EJECUCION 


UNIDAD 
ARITMETICO 
LOGICA 


INTERFASE 
EXTERNA 
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qu Registros 


De los componentes de la CPU citados, 
a los que más debemos prestar atención 
es a los registros, los cuales se manejan 
directamente en las instrucciones y son, 
por tanto, las piezas claves de la progra- 
mación. 


Lo primero que puede llamar la aten- 
ción, es que los registros tienen nombres 
propios (AX, Sl, BP, etc.), mientras que en 
otras CPUs los registros están simplemen- 
te numerados. Esto no es un capricho, 
sino que está relacionado con una ca- 
racterística importante del 8088: «Los re- 
gistros desempeñan misiones específi- 
cas en determinadas instrucciones», O 
dicho de otra forma: «muchas de las ins- 
trucciones del 8088 se ejecutan basán- 
dose en el contenido de determinados 
registros». Los nombres asignados están 
relacionados con los papeles desem- 
peñados en la ejecución de las instruc- 
ciones. 


La afirmación anterior quedará más 
clara con el siguiente ejemplo: la instruc- 
ción REPZ STOSW que apareció cuando 
«des-ensamblamos» el programa MAQUI- 
NA (ver tomo primero), significa: «copiar 
una información repetidamente sobre 
una zona de memoria». Pues bien, en di- 
cha instrucción se presupone que el re- 
gistro AX contiene la información a co- 
piar, que el registro CX es el contador 
que contiene el número de copias a rea- 
lizar y que los registros ES y DI definen la 
dirección de comienzo de la zona de 
memoria deseada. 


Hay muchas instrucciones que, como 
ésta, operan con registros concretos, hay 
otras que se pueden usar con cualquier 
registro, y por último, hay otro grupo de 
instucciones que se pueden usar con 
unos sí y con otros no. 


Pero pasemos a definir las característi- 
cas de los registros. Están constituidos 
por 16 bits, que se identifican con los nú- 
meros 0 al 15. El bit O, que es el menos sig- 
nificativo, se representa en el lado dere- 
cho del registro, y el bit número 15, que 
es el más significativo, queda, por tanto, 
en el extremo izquierdo. 


Para verlo más claro, pongamos un 
ejemplo en el sistema decimal de nume- 


ración: en el número 7618, la cifra del ex- 
tremo derecho (el 8) es la menos signifi- 
cativa (representa 8 unidades) y la cifra 
del extremo izquierdo (el 7) es la más sig- 
nificativa (ya que representa 7 millares). 

De igual forma, en el número binario de 
16 cifras: 1100110011001100, la cifra del 
extremo derecho, llamado bit 0 (que en 
el ejemplo es un 0), es la menos significa- 
tiva (representa O unidades), y la cifra 
del extremo izquierdo, llamada bit 15 
(que en el ejemplo es un 1), es la más sig- 
nificativa (ya que representa 1 x 32768). 

Los cuatro registros generales: AX, BX, 
CX y DX, están divididos en 2 registros mi- 
tades (que podemos llamar semirregis- 
tros) de 1 byte cada uno. Una mitad coin- 
cide con los bits 0 al 7, que son los bits 
menos significativos, y recibe el nombre 
de mitad «L» (inicial de la palabra ingle- 
sa «low», que quiere decir «bajo»). La otra 
mitad coincide con los bits 8 a 15, que 
son los bits más significativos, y recibe el 
nombre de mitad «H» (inicial de la pala- 
bra inglesa «high», que quiere decir 
«alto»). 

A la información que se guarda en un 
registro se le llama «palabra» y equivale 
a 2 bytes. Pues bien, un registro como el 
AX se puede utilizar para almacenar 
«una palabra», referenciándolo con el 
nombre AX, o se puede utilizar para al- 
macenar «dos bytes», referenciándolo 
con los nombres AH (para el byte más sig- 
nificativo) y AL (para el menos). Lo mismo 
le ocurre a los registros BX, CX y DX que 
se pueden referenciar por estos nombres 
y por el nombre de sus mitades, BH y BL 
del primero, CH y CL del segundo, y DH y 
DL del tercero. Todo esto se resume en la 
figura siguiente. 


Registro 
semi-registro semi-registro 
DOCCOL CEDE EEDO 


byte más significativo byte menos significativo 


bits 


o Conveniencia de la notación 
- hexadecimal 


En un semirregistro o byte de memoria 
se pueden dar 256 configuraciones de 
bits diferentes (2 elevado a 8), mientras 
que en un registro o en una palabra de 
memoria el número de configuraciones 
de bits es de 65536 (2 elevado a 16). 


Estos números, aparentemente tan ex- 
traños, aparecen porque la notación de- 
cimal que usamos no tiene relación di- 
recta con la notación binaria que usa la 
máquina. Sin embargo, la notación hexa- 
decimal sí tiene una relación directa con 
la binaria. En efecto, con cuatro dígitos 
binarios (4 bits) se pueden distinguir 16 
estados diferentes que pueden ser repre- 
sentados con una única cifra hexadeci- 
mal, del 0 a la F, realizando la siguiente 
correspondencia: 


bits bits 


(=] 
9 
A 
B 
e 
D 
E 
F 


Nom NnN”o 


Como en las unidades de memoria usa- 
das (bytes y palabras) el número de bits 
es múltiplo de 4, tenemos en la notación 
hexadecimal una forma cómoda y con- 
cisa de representar la información mane- 
jada por el ordenador. 


Los 256 estados posibles asociados a 
los 8 bits de un byte se pueden represen- 
tar con los 256 números hexadecimales 
de dos cifras. La configuración de bits 
0000 0000 se representa por el hexade- 
cimal 00 (decimal 0) y la configuración 
1111 1111 se representa por el hexade- 
cimal FF (decimal 255). 


De la misma forma los 65536 estados di- 
ferentes en que pueden encontrarse los 
16 bits de un registro, se pueden repre- 
sentar con los 65536 números hexadeci- 
males de 4 cifras. La configuración de 
bits 0000 0000 0000 0000 se representa 
por el hexadecimal 0000 (decimal 0), 
mientras que la configuración 1111 1111 


1111 1111 se representa por el hexade- 
cimal FF (decimal 255). 


a Direccionamiento 
de la memoria 


El microprocesador 8088 puede mane- 
jar 1 Megabyte de memoria, es decir, 
aproximadamente 1 millón de bytes. (El 
múmero exacto es 1024 x 1024 = 
1048576 bytes). Cada byte de memoria 
tiene asignado un número secuencial 
que va desde el 0 (0 hexadecimal) al 
1048575 (FFFFF hexadecimal), que es su 
dirección de memoria (dirección efecti- 
va), con la cual puede ser referenciado 
de forma inequívoca. La dirección de 
una palabra de memoria es la dirección 
del primero de sus dos bytes, que, curio- 
samente, es el menos significativo de los 
dos (ya explicaremos esto con más de- 
talle en otro lugar). 


Para referenciar todas esas direccio- 
nes hacen falta 20 bits, mientras que aca- 
bamos de ver que los registros tienen 16 
bits y sólo pueden contener 65536 valo- 
res diferentes. De esto se deduce que un 
único registro no puede servir para defi- 
nirtodas las direcciones de memoria que 
puede usar el microprocesador. 


Efectivamente, el 8088 usa siempre dos 
registros para calcular las direccciones 
de memoria y tiene un procedimiento 
particular de cálculo que vamos a ver a 
continuación. Los dos registros usados se 
denominan «registro de segmento» y «re- 
gistro de desplazamiento». Las direccio- 
nes efectivas de memoria las calcula el 
8088 multiplicando por 16 el número con- 
tenido en el «registro de segmento» y su- 
mándole el contenido del «registro de 
desplazamiento». 


Hay que tener en cuenta que multipli- 
car por 1ó en hexadecimal es igual de 
sencillo que multiplicar por 10 en deci- 
mal, es decir, basta con añadir un 0 a la 
derecha. 


Veamos un ejemplo. Si el «registro de 
segmento» contiene el número hexade- 
cimal 1C7B y el «registro de desplaza- 
miento» contiene 96F8, la dirección efec- 
tiva resulta ser 25EA8 (ya que 25EA8 = 
1C7B0 + 96F8). La operación se represen- 
ta en la siguiente figura: 


2 MÁQUINA 8088 


bits 


binario 


hexadecimal 


Registro de Segmento 
2110] 9[ 8[ 7] 6] s] 6] s[ 2 
DEDLECELERE 


bits 


binario 


hexadecimal 


Dirección Efectiva 


13 


SN ICUDE 
SS MEDEDE 


hexadecimal 2 


Pero no todos los registros pueden ha- 
cer el papel de «registros de segmento» 
y «registros de desplazamiento», sino que 
hay unas cuantas opciones posibles. 
Como «registros de segmento» actúan los 
registros CS, SS, DS y ES. Como «registros 
de desplazamiento» pueden actuar IP, 
SP, BP, BX, SI y DI. 

Aunque pueden utilizarse inuchas pa- 
rejas de registros válidas, hay cuatro pa- 
rejas que son típicas, porque direccio- 
nan las cuatro áreas de memoria que 
maneja el 8088. Las áreas y las parejas 
de registro que las direccionan son las si- 
guientes: 


+ Area de código (o área de progra- 
ma). Direccionada por los registros CS 
e IP. 


CS son las iniciales de las palabras in- 
glesas «Code Segment» (que significa 
«segmento de código»), e IP son iniciales 
de «Instruction Pointer» (que significa 
«apuntador de instrucciones»). Estos dos 
registros direccionan en todo momento 
la posición de memoria donde se en- 
cuentra la siguiente instrucción a eje- 
cutar. 


e Area de datos. Direccionada por los 
registros DS y SI. 

DS son las iniciales inglesas de «Data 
Segment» (que significa «segmento de 
datos»), y SI son las iniciales de «Source 
Index» (que significa ndice del origen»). 
Estos registros definen el área de memo- 
ria de donde leen determinadas instruc- 
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ciones. Por ejemplo: la instrucción LODSW 
lee en el registro AX la palabra de me- 
moria apuntada por DS y SI. 

e Area de datos «extra». Direccionada 
por los registros ES y DI. 

ES son las iniciales de «Extra Segment» 
(que significa «segmento extra»), y Dl son 
las iniciales del «Destination Index» (que 
significa «Índice del destino»). Estos regis- 
tros sirven para definir el área de memo- 
ria sobre la que escriben determinadas 
instrucciones. Por ejemplo: la instrucción 
STOSW escribe el contenido del registro 
AX en la palabra de memoria apuntada 
por ES y DI. 

*. Area de la pila de ejecución. Direc- 
cionada por los registros SS y SP. 

SS son las iniciales de «Stack Segment» 
(que significa «segmento de la pila»), y 
SP de «Stack Pointer» (que significa 
«apuntador de la pila»). Estos registros sir- 
ven para direccionar la pila de ejecu- 
ción o STACK. El concepto de «pila de 
ejecución» se explicará con detalle más 
adelante. 

Estas cuatro áreas pueden ser realmen- 
te cuatro áreas diferenciadas de la me- 
moria, o pueden solaparse. A continua- 
ción vamos a ver un programa ejemplo 
donde ocurre esto con el «Area de da- 
tos» y el «Area de datos extra». Ambas 
áreas se hacen coincidir, en este caso, 
con la zona de memoria que contiene la 
información que se representa en la pan- 
talla (que recibe el nombre de «buffer de 
pantalla»). 


O Programa ejemplo 


Este programa lo vamos a escribir usan- 
do también el Programa DEBUG. El méto- 
do normal de escribir programas en len- 
guaje máquina (lenguaje ensamblador) 
lo veremos más, adelante cuando se ex- 
pliquen las nociones básicas de «edi- 
ción», «ensamblaje» y «montaje». 


En este caso vamos a utilizar el manda- 
to A del DEBUG. Esta letra es la inicial de 
«assemble», que quiere decir «ensam- 
blar», es decir, obtener el código que en- 
tiende la máquina (código máquina) a 
partir de unas instrucciones escritas en 
un lenguaje entendible por el hombre 
(«lenguaje simbólico»). 


Al escribir «a 100» y pulsar Enter, el DE- 
BUG va escribiendo sobre la pantalla la 
dirección sobre la que se va guardando 
el código máquina en la forma CS:IP, es 
decir, un número hexadecimal de cuatro 
cifras que es el «registro de segmento» 
seguido de dos puntos y de otro número 
hexadecimal que es el «apuntador de 
instrucciones». A partir de ese momento, 
nosotros escribiremos las instrucciones 
(que se listan en minúsculas más abajo) 
y pulsaremos Enter al final de cada una. 
El mando A se termina al pulsar Enter sin 
haber definido ninguna instrucción. El res- 
to del listado corresponde a manda- 
tos que se explicaron paso a paso en el 
tomo primero. 


Con esto realizaremos el proceso inver- 
so al ejemplo del programa MAQUINA, 
donde se escribió directamente el códi- 
go máquina y se pidió al DEBUG que ge- 
nerase el código en lenguaje simbólico. 


A continuación se reproduce lo que 
aparece sobre la pantalla durante el 
proceso de escritura y comprobación de 
este programa. La comprobación me- 
diante la instrucción «u 100 11e» es im- 
portante, ya que, cuando se programa 
en lenguaje máquina, la mayoría de los 
errores no pueden ser detectados «a 
priori» y ocasionan frecuentemente «el 
cuelgue» de la máquina. Es decir, la pér- 
dida del control de la ejecución por el 
sistema operativo, por lo que la única so- 
lución es volver a cargarlo mediante un 
nuevo «IPL» (sigla de «Initial Program 
Load» que significa «carga del programa 
iniciador»). 


Hay que tener en cuenta que los que 
deseen ejecutar el programa en la pan- 
talla de _color deben cambiar la instruc- 
ción número cuatro, que es «mov 
ax,b000» por la instrucción «mov 
ax,b800». El cambio se debe a que cada 
tipo de pantalla tiene su buffer en una di- 
rección de memoria diferente. 


A>DEBUG 
=a 100 


0C47:0100 push ds 
0C47:0101 mov 
0C47:0104 push ax 
0C47:0105 mov 
0C47:0108 mov 
0C47:010A mov 
0C47:010C mov 
0C47:010F push cx 
0C47:0110 mov 
0C47:0113 mov 
0C47:0116 mov 
0C47:0119 repz 
0C47:011A movsw 
0C47:011B pop cx 
0C47:011C loop 10% 
0C47:011E retf 
0C47:011F 


-u 100 11e 

0C47:0100 1E PUSH DS 
0C47:0101 B80000 MOV AX, 0000 
0C47:0104 50 PUSH AX 
0C47:0105 BB800BO MOV AX, BO00O 
0C47:0108 B8ED8 MOV DS, AX 
0C47:010A BECO MOV ES, AX 
0C47:010C B9FOOO MOV CX, 00FO 
0C47:010F 51 PUSH ex 
0C47:0110 B9DO07 MOV CX,07DO 
0C47:0113 BEO200 MOV SI,0002 
0C47:0116 BFO0O0O MOV DI,0000 
0C47:0119 F3 REPZ 

0C47:011A AS MOVSW 

0C47:011B 59 POP Cx 
0C47:011C E2F1 LOOP 010F 


0C47:011E 


Writing O01F bytes 
-q 
A> 


Cuando termina el programa DEBUG te- 
nemos un nuevo fichero llamado SIMBO- 
LO. COM, que contiene 31 bytes con nues- 
tro programa. Al ejecutarlo podemos ver 
cómo el contenido de la pantalla se des- 
plaza horizontalmente, de forma que se 
pierde por la izquierda y aparece por la 
derecha varias veces. Para observar bien 
el efecto se recomienda ejecutar el pro- 
grama SIMBOLO cuando la pantalla esté 
ocupada. 


PROGRAMAS 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 


Programa: 180 PRINT INVERSE 1;"VOCALES N 
á O EXISTENTES EN ESPANOL": PRINT 
vocabulario 190 PRINT "La "; INVERSE 1;"u" 
2 5 INVERSE 0;" en frances se p 
frances ronunciaponiendo la boca para de 
L primer programa de cir la "; INVERSE 1;"u"; INVERSE 
0;"espanola y diciendo i. La "; 
este cuarto tomo nos INVERSE 1;"e"; IN “ ó 
. . ; ; VERSE 0; fran 
permitirá poner al día cesa se pronuncia poniendo la bo 
nuestros conocimien- ca para decir "; INVERSE 1;"o"; 
tos del idioma fran- INVERSE 0;",diciendo "; INVERSE 
£ 1;"e"; INVERSE 0;"." 
ea Sn SPD: esa 200 PRINT $0; FLASH 1;" 
preg PULSA UNA TECLA. p 
l serie de palabras en 210 IF INKEY$="" THEN GO TO 21 
español que nosotros tendremos que tra- 0 
ducir al francés. Para hacer más fácil 211 CLS : PRINT INVERSE 1;" 
todo, el programa divide las palabras, | A EIA ENES ES 
segun su dificultad, en cuatro niveles dis- PRINT *”" Se avisa que para los 
tintos. Las instrucciones necesarias para sustanti-": PRINT "vos hace falt 
utilizar el programa se dan en el mismo. a poner el articu-": PRINT "lo. 


REM 
REM 
50 LET 


.houa 
PPO00_J3000Aa0N- 
Es) 
El 
z 


100 PRINT INVERSE 1;"VOCALES I 
GUALES EN AMBOS IDIOMAS": PRINT 


": PRINT *" Si necesita un apost 
ofe utilice el guion. ": PRINT *" 


A Los nombres propios han de ir 

* VACABULARIO meda con mayuscula al principio." 

PE ES 212 PRINT : PRINT : PRINT ' 

SUERTE" 

JARA IAIOIOIOIOIITIOIOIOIHIOJOK 213 PRINT : PRINT : PRINT : PRI 

* POR OSCAR MORALES — * NT FLASH 1;" PULSA UNA T 

PE ES ECLA. mM 

*(c)Ed.Siglo Cultural * 214 IF INKEY$="" THEN GO TO 21 

*(c) 1987 * 4 

EPA 215 CLS : INPUT "QUE NIVEL DESE 
E AS (1-4)";L: IF L<>1 AND L<>2 AN 

o=0: LET w=0: LET x=0 D L<>3 AND 1<>4 THEN GO TO 215 


216 PRINT AT 10,8; FLASH 1;"ESP 
ERA UN MOMENTO” 


110 PRINT " Espanol 


Frances": PRINT 


217 IF L=1 THEN LET d=80 
218 IF 1=2 THEN LET d=145 


120 PRINT " a 

a ": PRINT 219 IF 1=3 THEN LET d=-206 
130 PRINT " i 220 IF 1=4 THEN LET d=267 

i": PRINT 230 DIM a$(d,20): DIM d$(d, 20): 
140 PRINT * o LET q=0 
o,au,eau": PRINT 240 RESTORE 300 
150 PRINT " e 249 LET a=0 
ai,ei": FEINT 250 FOR i=1 TO d 

INT " 254 READ b$: LET a$(i)=b$ 

ee Ñ 255 NEXT i 
170 PRINT "-—-=-=-===============-=- 260 LET c$="": RESTORE 400 


270 FOR b=1 TO d 


274 READ c$: LET d$(b)=c$ 

275 NEXT b 

300 DATA "mesa”,"coche", "libro 
", "ventana", "lapiz", "palabra", "p 
erro", silla”, "puerta", "pared", " 
cabeza","casa", "cigarro", Pi 
a armario comida", agua", 
ma", "suelo", "techo", "cielo", dd 
Ds uol”, “1luvia", "habitacion", " 


o. 


cuarto de estar", cuarto de bano 


os 


", "cocina", "salon", "pasillo", "bo 
lsa”, "pan", "leche", "jarron”, "zap 
ato", "bombilla", "arbol", "calle", 


“tasa”, "cafe", "ciudad cerveza" 
"cana de culrvona "Panal, "vio 
, "hora", "campo", semana”, "dia" 
, aaa) "ano", "siglo", "boligrafo" 
"goma", "sacerdote alambre","p 
ie1”, "luna", “violin”, "hospital" 
320 DATA "alfombra", "curso", "Eu 
ropa", "Espana", "Francia", "idioma 
“, "hombre", "mujer", "nino", "nina" 
"abuelo", "abuela", "madre", "padr 
e", "suegra", "suegro primo", "pr 
ippo es, “aobelna”, "htJ0" 
"hija", cunado”, "cunada”, "horno" 
"grifo", "vajilla", "plato", "tene 
ad"; “cuchillo”, "cuchara", "ojo", 
"ojos","nariz","boca", "cara", "fr 
ente", "espalda”, "hombros", "piern 
a", "mano", "pie", "brazo animal” 
, “persona”, "pajaro", LR: "ce 
rdo","vaca", "cordero", "carro", "r 
amo de flores","cesta","tinta"," 
pantalla", "tintero", "cenicero 
tiza", "largo","ancho", atPacho” 
"“corto","alto","bajo", "rubio", " 
Mano "pelirrojo", "fuerte", "de 
bil", "abierto", "cerrado", "papel" 
"reloj", "blanco", "negro", "verde 
", "rojo", "azul", "amarillo" 
330 DATA "rosa", "naranja", "marr 
n", "gris", "violeta", "fecha", "ed 
ara "noche", "tarde", "manana", "es 
trella","palido", “Quadra”, "cuadr 
ado"," triangulo", "vida", "ser", "e 


s","el es","el tiene", "yo tengo" 


A ee soy yo voy el viene","g 


“os 


pe “ 


uante”, tala” ió” "jers 
ey", "chaqueta", "botas", "sombrero 
hn ibi. "chaleco", "necesita 


prenda interior","ropa de ve 
A "ropa", "abrigo", "botella", 
"gorra", "nombre", "cual es?”, "mi" 
, "tu", "su", "nuestro", "vuestro", " 
fuego", "dinero", "ayudar", "amar", 
“cortina”, "cruz", "iglesia", "medi 
*, "policia", "bombero", "tienda" 
a "tijera", 
"pelo", "cuaderno 

cito? AE O? 
350 DATA "cajon","sillon", "un", 
"una", "dos", "tres", "cuatro", "cin 
co", "seis", "siete", ocho", "nueve 
","diez","muneca", "telefono", "ba 
rba”, "vanado 066 sombra", "di 
ente", "lleno", "vacio", "grande", " 
cor + E Ta 


pequeno", "piedra", "roca”, 
mar", "aplauso", "campana", "golpe" 


co 


o. os 


vaso", "corazon 
profesor"," 


os 


"encendedor", "radiador", "chimen 

ea", desayuno”, "cena", "juventud" 
O "madera", "hierro" 
, "lana", "cemento", "algodon", "lad 
rillo","verdad","mentira","es ve 
rdad!", "rama", "peso", "quizas", "r 
azon","asiento”, "sobre", "sello", 
"subir", "bajar", " escalera”, "ladr 


Se . 


on sonrisa”, "azucar" 


400 DATA "la table", "la voiture 
","le livre","la fenetre", "le cr 
Me "le mot", "le chien", "la ch 
aise","la porte","le mur”, "la te 
te","la maison", "la cigarrette", 
"la lampe","l-armoire”,"la nourr 
iture","l-eau”, "le lit", "le sol" 
,"le plafond","le ciel”","la nuag 

e","le soleil", "la pluit", "la ch 

po: "la salle a manger","la s 
alle de bain", "la cuisine", "le s 
alon","le couloir"”,"le sac", "le 
pain", "le lait","le vase","la ch 
aussure","l-ampoule","l-arbre”," 
la rue", "la tasse", "le cafe", "la 
ville","la biere”, "le demi", "le 
gateau","le vin", "l-heure","le 
champ", "la semaine", "le jour", "1 
e mois","l-an","le siecle","le s 
tylo"," la gomme", "le cure", "le f 
il de fer", "la peau", "la lune", 
le violon","l-hopital” 

420 DATA "le tapis","le cours”, 
"1-Europe","1-Espagne", "la Franc 

e","la langue”, "l1-homme", "la fem 
me”, "l-enfant","la fille”, "le gr 
and-pere","la grand-—-mere", "la me 
re","le pere", "la belle-mere", "1 
e Paaonás "le cousin”, "la cou 
sine”, "le neveu”", "la niece”, "le 
fis", "la fille", "le beau-frere", 
"la belle-soeur”, "le four", "le r 
obinet","la vaisselle","l-assiet 
te","la fourchette","le couteau" 

¿"la cuillere","l-oeil", "les yeu 

x","le nez", "la bouche”, "la figu 
re", "le front","le dos", "l-epaul 

e" ¿"la jambe","la main", "le pied 
bo ¿"le bras", "l-animal”, "la perso 
nne","l-oiseau', "le pingeon”", "le 
pora "la vache","l-agneau", "le 
chariot","le bouquet", "le panie 
r","l-encre","l-ecran", "l-encrie 
r","le sandrier","la craie" 

430 DATA "long","large","etroit 
",”*oourt”, "haut", "bas", "blond”, " 
pe "“roux", "fort", "faible", "ou 
vert","ferme", "le papier","la mo 
ntre", "blanc", "noir", "vert", "rou 
ge", "bleu", "jaune", "la rose or 
ange"," marron", "gris", "violet EE 
la das, "l-age" 


440 DATA "la nuit”, "le soir", "1 
e matin","l-etoile","pale","le t 
ableau","le carre", "le triangle" 


, “la vie", "etre","c-est", "il est 
", "il a”,"j-ai", "je suis”, "je va 
is","il viens”, "le gant", "le pan 


añont: "la chemise”, "le chandail 
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","la jaquette”", "la botte", "le c 
hapeau", "le chaussette","le gile 
t","avoir besoin", "le sous-vetem 
ent", "le vetement", "le linge”, "1 
e pardessus","la bouteille”,"la 
casquette","le nom", "quel est?"”, 
“mon”, "ton", "son", "notre", "votre 
","le feu", "l-argent","aider","a 
imer","le rideau”, "la croix", "1l- 
eglise","le medesin", "la police" 
, “le pompier", "le magasin", "la b 
ougie”","le ciseau”, "le verre”, "1 
e coeur", le cheveu", "le cahier" 
, “le professeur”, "le cercle”, "le 
premiere" 


450 DATA "le tiroir","le fauteu 
11","un”,"une", “dos”, "trois"”, "qu 
atre","cinq", "six", "sept", "huit" 
,"neuf","dix","la poupee", "le te 
lephone","la barbe", "le poison”, 
"le poisson","l-ombre"”, "le dent" 
,"plein", "vide", "grand", "petit", 
"la pierre","le rocher", "la fleu 
ve", "la mer", "l1-applaudissement” 
» "la cloche”", "le coup", "le briqu 
et","le radiateur","la cheminee” 
, "le petit dejeuner","le souper” 
, "la jeunesse", "le lac", "le noeu 
d","le bois","le fer","la laine” 
, "le ciment","le coton”, "la briq 
ue", "la verite", "la mensonge", "o 
-est vrai!","la brache","le poid 
s","peut-etre","la raison","le s 
iege","l-enveloppe","le timbre”, 
“monter", "descendre", "l-escalier 
","le voleur","la sourise”, "le s 
ucre" 


900 RANDOMIZE 
1000 IF d<=0 THEN PRINT "HAS AC 
ABADO CON EL NIVEL "“;L: PRINT "T 
U PORCENTAGE DE ACIERTOS ES DEL 
";100-((X*100)/0);" %": STOP 
1005 CLS : PRINT "QUIERES QUE TE 
PREGUNTE?" 
1006 PRINT : PRINT : PRINT 
1010 LET x$=INKEY$ 
1020 IF x$="s" OR X$="S" THEN G 
O TO 1100 
1030 IF x$="n" OR X$="N" THEN C 
LS : PRINT "TU PORCENTAGE DE ACI 
ERTOS ES DEL ";100-((X*100)/(0+. 
00001));" %": STOP 
1040 GO TO 1010 
1100 LET r=INT (RND*d)+1: IF as$( 
r)=" " THEN 
GO TO 1100 
1200 PRINT “LA PALABRA ES ";a$(r 
) 
1210 INPUT "CUAL ES SU TRADUCCIO 
N?";r$: LET O=0+1 
1220 FOR h=LEN (r$) TO 20: LET r 
$=r$+" ": IF r$=d$(r) THEN LET 
h=20: LET q=1 
1225 NEXT h: IF q=1 THEN PRINT 
"CORRECTO": LET Q=0: LET w=0: LE 
T W=0: GO SUB 3000: GO TO 900 
1230 PRINT *” FLASH 1;"NO ES COR 
RECTO": PRINT : PRINT "INTENTALO' 


DE NUEVO": LET W=W+1: LET X=X+1 
: PAUSE 200: CLS 

1235 IF W>=3 THEN PRINT "LA TRA 
DUCCION ERA ";D$(R): LET w=0: PA 
USE 200: GO SUB 3000: GO TO 900 

1240 GO TO 1200 

3000 IF r=d THEN LET a$(r)="": 

LET d$(r)="": LET d=d-1: RETURN 

3005 FOR g=r TO d-1 

3010 LET a$(g8)=a$(8+1): LET d$(g 
)=d$(8+1): LET a$(g+1)="": LET d 
$(8+1)="" 

3020 NEXT g 

3030 LET d=d-1: RETURN 


El programa se ha realizado en un SPEC- 
TRUM. Para que el programa funcione en 
los demás ordenadores, hay que realizar 
algunos cambios. Estos, según el ordena- 
dor, se especifican a continuación. 


COMMODORE: 


60 PRINT CHR$(147) 

100 PRINT “VOCALES IGUALES EN AMBOS 
IDIOMAS”:PRINT 

180 PRINT “VOCALES NO EXISTENTES EN ES- 
PANOL”.PRINT 

190 PRINT “La 'U' en francés se pronun- 
cia poniendo la boca para decir la 'U' es- 
pañola y diciendo 'l'. La “E' francesa se 
pronuncia poniendo la boca para decir 
*O', diciendo '“E'.” 

200 POKE 214,21:POKE 211,0:PRINT “PUL- 
SA UNA TECLA” 

210 GET AS: IF AS="” THEN GOTO 210 

211 PRINT CHR$(147):PRINT “AVISO”:PRINT 
U=--=-":PRINT:PRINT "Se avisa que para los 
sustantivos hace falta poner el artícu- 
lo.'*:PRINT:PRINT “Si necesita un apóstrofo 
utilice el guión.”:PRINT:PRINT “Los nombres 
propios han de ir con mayúscua al princi- 
pio.” 

213 PRINT:PRINT:PRINT “PULSA UNA TECLA” 

214 GET AS:IF AS="” THEN GOTO 214 

215 PRINT CHR$(147):INPUT “QUE NIVEL 
DESEAS ( 1-4)”; 1: IFL<>1 AND L<>2 AND 
L<>3 AND L<>4 THEN GOTO 215 

216 PRINT:PRINT:PRINT “ESPERA UN MO- 
MENTO” 

230 DIM AS(D):DIM DS$(D) 

900 LET A=RND(-TD) 
1005 PRINT CHR$(147);"QUIERES QUE TE 
PREGUNTE?” 
1010 GET X$ 
1030 IF x$="n” OR X$“="N"” THEN PRINT 
CHR$(147);“TU PORCENTAJE DE ACIERTOS 


ES DEL ”;100-((X"100)//(0+.00001)); 
“%'":END 

1100 LET R=INT(RND(O)'D)+1:1F AS(R)=" ” 
THEN GOTO 1100 

1230 PRINT “NO ES CORRECTO”:PRINT:PRINT 
“INTENTALO DE NUEVO”:LET W=W=+1:LET 
X=X+1:FOR G=1 TO 200:NEXT G:PRINT 
CHR$(147) 


60 CLS 

100 PRINT “VOCALES IGUALES EN AMBOS 
IDIOMAS”:PRINT 

180 PRINT “VOCALES NO EXISTENTES EN ES- 
PANOL”:PRINT 

190 PRINT “La 'U' en francés se pronun- 
cia poniendo la boca para decir la 'U' es- 
pañola y diciendo 'l'. La 'E' francesa se 
pronuncia poniendo la boca para decir 
'O*, diciendo 'E'.” 

200 LOCATE 21,1:PRINT “PULSA UNA TE- 
CLA” 

211 CLS:PRINT ''AVISO'”':PRINT 
“==---":PRINT:PRINT “Se avisa que para los 
sustantivos hace falta poner el artícu- 
lo.'*PRINT:PRINT “Si necesita un apóstrofo 
utilice el guión.”PRINT:PRINT “Los nombres 
propios han de ir con mayúscula al prin- 
cipio.” 

213 PRINT:PRINT:PRINT “PULSA UNA TECLA” 

216 PRINT “ESPERA UN MOMENTO” 

1230 PRINT “NO ES CORRECTÓ”:PRINT:PRINT 
“INTENTALO DE NUEVO”:LET W=W+1:LET 
X=X+1:FOR G=1 TO 200:NEXT G:CLS 


MSX: 


Las variaciones que hay que realizar 
para que el programa funcione en este 
ordenador son las mismas que para el 
IBM, excepto la sentencia LOCATE de la lí- 
nea 200, que en vez de ser LOCATE 21,1 
ha de ser LOCATE 1,21. También hay que 
cambiar la línea 900 por: 


900 LET A=RND(-TIME) 
AMSTRAD: 


Para este ordenador hay que hacer los 
mismos cambios que se dan para el IBM, 
pero hay que cambiar la sentencia LO- 
CATE de la línea 200 por LOCATE 1,21. 


'Q Notas al programa 


Este programa tiene almacenadas en 
total 267 palabras. Al principio, éstas 


introducción sobre los tipos de la lengua 


[a El programa da una pequeña 
francesa. 


pueden ser más que suficientes, pero en 
la medida en que cada una vaya apren- 
diendo, o recordando, más palabras en 
francés, el programa se puede quedar 
pequeño. Para que el programa acepte 
más palabras sólo hay que ponerle más 
niveles. Para cambiar el número de nive- 
les que pueda tener el programa sólo 
hay que cambiar las siguientes lineas: 


215 CLS:INPUT “QUE NIVEL QUIERES 
(1—n);L:IFL< OR L>N THEN GOTO 215 

221 IF L=5 THEN LET D=320 

222 IF L=6 THEN LET D=400 


donde «n» es el número de nivel más alto 
permitido. Las líneas 221 y 222 aparecen 
a título de ejemplo. Habrá que poner una 
de estas líneas por cada nivel añadido. 
La asignación que se encuentra al final 
de dichas líneas le dice al ordenador 
cuál es el número máximo de palabras 
que puede preguntar. 

Por supuesto, el cambio más importan- 
te ha de hacerse a partir de las líneas 350 
y 450. A partir de la línea 350 tenemos 
que almacenar en líneas DATA las nue- 
vas palabras en francés que queremos 
que tenga el programa. A partir de la li- 
nea 450 almacenaremos las mismas pa- 
labras, en el mismo orden, pero en espa- 
ñol. 
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PLILSA UNA TECLA. 


a Programa: Resolución 
- de ecuaciones 


El programa que vamos a ver a conti- 
nuación nos permitirá resolver ecuacio- 
nes que tengan hasta cincuenta incógni- 
tas. El programa está preparado para de- 
cirnos si el determinante es cero, pero 
sólo sirve para ecuaciones que tengan 


QUIERES QUE TE PREGUNTE? 


LA PALABRA ES calle 


NO ES CORRECTO 
INTENTALO DE NUEVO 


lA Pantalla del programa en plena 
ejecución. 


una única solución. No sería difícil variar 
el programa para que además resolvie- 
se sistemas de ecuaciones con infinitas 
soluciones y para que resolviese siste- 
mas de ecuaciones homogéneas. Para 
ello, se ha incluido, junto con el progra- 
ma, el diagrama de flujo u organigrama. 


100 REM AsMSS SOS lO SOS S SISSI SO jO SISSI la lalola lala lalalala lalalala lolo Ojala lajokok 


101 REM 
102 REM 


RESOLUCION DE SISTEMAS DE ECUACIONES DE CUALQUIER ORDEN 
POR EL METODO DIRECTO DE CRAMER 


103 REM AMdSSSO MISS ISSlS ISSO lS lll SS SOS IOS jaa O la O lo a lolo lololojolaok 


104 REM 
105 REM 
106 REM 


107 REM ASS SS ISSO ISSlSS ISS ISSO SISSI jS lll” la lalala jajaa jala lolo lolojojok 


108 REM aoSoOIdOROK POR : 


JUAN MANUEL GUTIERREZ LEITON 


AGOOSOOOIOIOIOJOJOK 


109 REM asRSSS OSOS SIS jO SOS ISSO OSOS loja jajajajajajaja lalalala jolalalolaloldlajololok 


110 REM 
111 REM 


112 REM AMOS SS lS SISSI lO SISSI SISSI S lO lO lalalala lalala lolo loloOlololok 


113 REM AdMSOROIOO jojojo 


(C) EDICIONES SIGLO CULTURAL (1987) 


ES 


114 REM ASS SISSI SISSI S ISSO ISSO ISSO” lololalololajok 


115 REM 
116 REM 


117 DIM M(50,50):DIM A(50,50):DIM D(50):DIM T(50):DIM S(50) 


118 CLS 


119 INPUT "dimension del sistema de ecuaciones”;DI 


120 IF DI<=1 THEN GOTO 119 

121 IF DI<>INT(DI) THEN GOTO 119 
122 FOR I=1 TO DI 

123 FOR J=1 TO DI 

124 PRINT "a(“;13","33;")="; 
125 INPUT M(1,J) 

1286 NEXT J 


127 PRINT "termino independiente(";1;")="; 


128 INPUT T(I) 

129 NEXT I 

130 CLS 

131 LOCATE 12,15 

132 PRINT "-- CALCULANDO !!”; 


133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 


PRINT " por favor, espere...." 


GOSUB 147 

GOSUB 164 

LET DL=DE 

IF DL=0 THEN GOTO 145 

FOR C=1 TO DI 
GOSUB 218 
GOSUB 164 
LET S(C)=DE/DL 

NEXT C 

GOSUB 237 

GOTO 146 

GOSUB 262 

END 

REM 


REM RSS MOSSOS lalalala lla lalalala lalalala lalalala lalololojojok 
REM SUBRUTINA DE CREACION DE UNA MATRIZ AUXILIAR.QUE ES UNA COPIA 
REM — DE LA MATRIZ ORIGEN O MATRIZ DE PARTIDA DEL SISTEMA DE ECUACIO- 


REM NES. 


OS 


REM 

FOR I=1 TO DI 
FOR J=1 TO DI 
LET A(I,J)=M(I,J) 
NEXT J 

NEXT I 

RETURN 

REM 


REM aMSN OOOO lll llololOIOIO OK 
REM FIN DE LA SUBRUTINA DE LA CREACION DE LA MATRIZ AUXILIAR 
sas 


REM 


REM SMS Sola leal olla lll lalalala lalaloloIOIojojoK 
REM SUBRUTINA PARA EL CALCULO DE LOS DETERMINANTES POR EL METODO 
REM DE TRIANGULACION, ES DECIR, TODOS LOS ELEMENTOS SITUADOS ES- 
REM TRICTAMENTE BAJO LA DIAGONAL PRINCIPAL SON CONVERTIDOS A CERO 
REM MOSSOS ISSO lla lalalala lalalala lalola lll IOloJoJOK 


REM 
LET 
LET 
LET 
LET 
LET 
IF M(1,J)=0 THEN GOTO 204 
LET D(T)=M(K, J) 

LET I=T 

LET D=M(K, I) 

LET M(1,J)=M(1,J)/D 

IF J=DI THEN GOTO 184 

LET J=J+1 

GOTO 180 

LET I=I+1 

LET J=T 

LET RE=M(I,J) 

LET M(1,J)=M(I, J)-M(K, J)*RE 
IF J=DI THEN GOTO 191 

LET J=J+1 

GOTO 187 

IF I=DI THEN 193 

GOTO 184 

IF T=DI-1 THEN GOTO 196 

LET T=T+1 

GOTO 172 

LET T=DI 

LET D(T)=M(DI, DI) 

LET T=1 

LET DE=1 


FrACG > 
TI 
2) 33535 


200 FOR I=1 TO DI 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 

252 
25 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 


LET DE=DEXxD(I) 
NEXT I 
GOTO 213 


LET 


I=-1+1 


IF M(I,J)=0 THEN GOTO 210 


LET 
LET 


M(K,L)=M(K, L)+M(1,L) 
L=L+1 


IF L>DI THEN GOTO 177 
GOTO 206 
IF I=DI THEN GOTO 212 
GOTO 204 


LET 


DE=0 


RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
FOR 


AAA ROO OOOO ORO ROO ORO OOO RO ROO ROO RO ROO JO ROO ROO ORO ROO ROO OOO ROO OOOO OOOO OOOO RO 


FIN DE LA SUBRUTINA DE CALCULO DE DETERMINANTES 
IMSS SS SSI lO OOOO OOOO: 


ASIS] 
SUBRUTINA PARA EL INTERCAMBIO DE LOS VALORES DE UNA COLUMNA 
DE LA MATRIZ ORIGEN POR LA COLUMNA DE TERMINOS INDEPENDIENTES 
IMSS OOOO OI NI IS Ill llojoJOJOIOJoK 


I=1 TO DI 


FOR J=1 TO DI 


M(1,J)=A(I,J) 


NEXT J 
NEXT I 
FOR I=1 TO DI 
M(1,C)=T(I) 
NEXT I 
RETURN 
REM 
REM ASSIM ISSO ISSO III lll IoIOJOK 
REM FIN DE LA SIBRUTINA DE INTERCAMBIO 
REM AMOS ISSO SSISIOIOIOIS ISSO III llo OK 
REM 
REM RSS SISSI IESO ISSO III OOOO 
REM SUBRUTINA PARA LA IMPRESION EN PANTALLA DE LOS RESULTADOS 
REM AMMSSISIS ISS ISSO SISSI SISI III OOOO IlfOIOIOIOIOK 
REM 
CLS 


LOCATE 8,20 
PRINT "soluciones del sistema de ecuaciones” 


LOCATE 9,20 
ARI a ee a 
FOK I=1 TO DI 


LOCATE 13,30 

PRINT “TI SOL) 

TOCATE 21,23 

PRINT "pulse una tecla para continuar” 
LET A$=INKEYS$ 


IW A$="" THEN GOTO 252 


NEXT I 

CLS 

RETURN 

REM 
AS 
REM FIN DE LA SUBRUTINA DE IMPRESION DE RESULTADOS 

REM ASS SS ISSO ISSO lll OOO IOIOIOIOIOIOIOTOK: 
REM 

REM SOSA OJOS la lalalala jojoK 
REM SUBRUTINA PARA EL CASO DE QUE LA MATRIZ DE SALIDA O 

REM MATRIZ DE ORIGEN TENGA UN DETERMINANTE=0 
AS 
REM 

CLS 

LOCATE 9,15 


PRINT "el determinante de la matriz origen o de partida es” 
270 LOCATE 11,15 

271 PRINT "0, luego no se puede aplicar el metodo de CRAMER 

272 LOCATE 21,23 

273 PRINT "pulse una tecla para continuar” 

274 LET A$=INKEYS$ 

275 IF A$="" THEN GOTO 274 

276 CLS 

277 RETURN 

278 REM 

279 REM MSM SISSI IS SISSI SIISE jajajajja lalala lalalala lalalala lalalala alalolo lolo jok 
280 REM FIN DE LA SUBRUTINA PARA EL DETERMINANTE=0 DE LA MATRIZ ORIGEN 
REM SMS S SISSI lalalala lalalala lalalala lalalala lalalala lalalala jololo lok 


No 
DI<>INT(DI) 
ue 


==» CONECTORES DE FLUJO 


» PROGRAMAS 


NECn 


DG(T)=MO(K,J) 
MO(1,J)=MO 


El sistema no 
tiene solución 
por CRAMER 


Soluciones 
del sistema 


Pulse una 
tecla para 
seguir 


2 PROGRAMAS 


A | El programa avisa si el determinante de la 


nsion del sistema de ecuaciones? % 


Ej 
me 


17%) 


3 
27 
> 
2 
-? 
7 
-? 
E) 
:2 


Da NON NI 


0003 
=> 
An 

ES 
ES 


des endiente( 1 )=? 23 


A AA 
= 
SITTERS ARRE 
o COTO 
ms 


MORIRTE 
588... ly 


É NN E Y Jo o JJ jm 
OS | 


RS aa 


PR e o o rs 
ARTES 


> 


ndepeddiente( 2321, 


A 1 = 3,837823 


el determinante de la matriz origen o de partida es 


0, luego no sé puede aplicar el metodo de CRAMER 


pulse una tecla para continuar 


matriz origen es cero. 


Como siempre, para que el programa 
pueda funcionar perfectamente en orde- 
nadores distintos del IBM, se recomienda 
realizar los siguientes cambios: 


COMMODORE: 


118 PRINT CHR$(147) 

130 PRINT CHR$(147) 

131 POKE 214,12:POKE 211,7 
242 PRINT CHR$(147) 

243 POKE 214,8:POKE 211,0 
245 POKE 214,9:POKE 211,0 
248 POKE 214,13:POKE 211,9 
250 POKE 214,21:POKE 211,3 
252 GET AS 

255 PRINT CHR$(147) 

268 POKE 214,9:POKE 211 
270 POKE 214,11:POKE 21 
172 POKE 214,21:POKE 21 
274 GET AS 

276 PRINT CHR$(147) 


AMSTRAD: 


131 LOCATE 15,12 
243 LOCATE 20,8 
245 LOCATE 20,9 
248 LOCATE 30,13 
250 LOCATE 23,21 
268 LOCATE 15,9 
270 LOCATE 15,11 
272 LOCATE 23,21 


Para que la presentación del programa 
sea perfecta, se recomienda al usuario 
ejecutar el programa estando en el 
modo número 2 de pantalla (MODE 2). 


MXS: 


131 LOCATE 15,12 
242 LOCATE 20,8 
245 LOCATE 20,9 
248 LOCATE 30,13 
250 LOCATE 23,21 
268 LOCATE 15,9 
270 LOCATE 15,11 
272 LOCATE 23,21 


a] 


,0 


1,0 
1,3 


SPECTRUM: 
131 PRINT AT 12,0; 
266 LET M(l,J)=A(1,J) 
230 LET M(1,C)-T(l) * 
243 PRINT AT 8,0; 
245 PRINT AT 9,0: 
248 PRINT AT 13,0; 
250 PRINT AT 20,0; 
268 PRINT AT 9,0; 
270 PRINT AT 11,0; 
272 PRINT AT 20,0; 


Notas sobre el programa: 
resolución de ecuaciones 


Si necesitas que el programa te resuel- 
va una ecuación de más de cincuenta in- 
cógnitas, lo único que tienes que cam- 
biar es la línea 117 por: 


117 DIM(n,n):DIM A(n,n):DIM D(n):DIM 
T(N):DIM S(n) 


donde «n» es el número de incógnitas (y 
de ecuaciones) a resolver. 

Para los usuarios del IBM, del AMSTRAD 
y del MSX2, se recomienda poner la pan- 
talla en el modo de 80 columnas para te- 
ner una mejor presentación del progra- 
ma. 


1 Programa: Solitario para 
SPECTRUM 


Este último programa del tomo es un 
juego de cartas que sólo sirve para el 
SPECTRUM, aunque aparecerá para el 
resto de los ordenadores en tomos suce- 
sivos. 


Con este programa podremos pasar 
nuestros ratos de ocio sin compañía de 
nadie, pues se trata de un solitario. Debi- 
do a la gran cantidad de juegos de este 
tipo que hay, se hace necesario explicar 
las instrucciones, no sólo las de uso del 
programa, sino también las del juego. 


REM MMS lll lOIOJOJOK 
REM x*x SOLITARIO * 
REM AMS SIS lO lO SOlOlo lolo JOJOK 
REM *POR J. GARCIA LUENGO * 
REM ASSIM SS IS SOS lSlO ISO jOOIOIOIOIOK 
*x(c)Ed. Siglo Culturalx 
REM *(c)1987 * 
REM AMS SSI lOlOlOJOIOIO Ok 


. 
0002300400 
x 


15 POKE 23658,8 
30 FOR B=1 TO 4 


" AND C=11)+("K" AND C=12) 
50 READ P$ e 
60 LET B$(A*4-4+B, 2)=P$ 
70 NEXT B 
80 NEXT A 
90: DATA7*0",*C","E”, “B" 
100 REM BARAJEO 
110 CES : 
120 FOR A=1 TO 100 
130 LET ORDEN1=INT (RND*40)+1 
140 LET ORDEN2=INT (RND*40)+1 
150 IF ORDEN2=0RDEN1 THEN GO TO 140 
160 LET P$=B$(ORDEN1) 
170 LET B$(ORDEN1)=B$(ORDEN2) 
180 LET B$(ORDEN2)=P$ 
190 NEXT A 
200 REM CORTAR 
210 PRINT FLASH 1;AT 11,11;” 
220 FOR A=1 TO 40 


CORTA 


230 BEEP .01,30: PRINT AT 13,13;" ";A;" “ 


240 IF INKEY$<>"" THEN GO TO 280 
250 NEXT A: GO TO 200 

260 FOR B=1 TO 40 

270 LET C$(B)=BS3(A) 

280 LET A=A+1: IF A=41 THEN LET A=1 
290 NEXT B 

300 FOR A=1 TO 40 

310 LET B$(A)=C$(A) 

320 NEXT A 

330 REM CREA LA MESA 


20 FOR A=1 TO 10: LET C=C+1: RESTORE 90: 


RESTORE 5900: FOR A=5E4 TO 50011: READ B: POKE A,B: NEXT A: RESTORE 5910: F 
OR A=50100 TO 50111: READ B: POKE A,B: NEXT A 


IF C=8 THEN LET C=10 


40 LET B$(A*4-4+B,1)=(STR$ C AND C<8 AND C>1)+("A" AND C=1)+("J" AND C=10)+("Q 


PRINT FLASH 1;AT 11, 11; "BARAJANDO" 
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335 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
615 
620 
630 


640 IF INKEY$="P" THEN GO TO 3000 

650 IF INKEY$="R" THEN IF C<>0 THEN PRINT AT 13,19; 
GO SUB 4000 

660 IF INKEY$="N" THEN IF M<>1 THEN PRINT AT.16,24; 
: GO SUB 5000 

670 IF INKEY$="Q" THEN GO TO 970 

680 IF INKEY$="H" THEN GO SUB 5600 

690 GO TO 600 

700 PRINT AT A*2,CXFx3+2;A$(A, CXF+1) 

710 RETURN 

750 PRINT AT FILAB*2,CXBx*3+2;"  ” 

760 RETURN 

800 IF INKEY$="8" THEN PRINT AT 0,CX*3+2;"  ": BEEP 
Xx<>4) 

810 IF INKEY$="5" THEN PRINT AT 0,CX*3+2;"  ": BEEP 
CX<>0) 

820 RETURN 

900 PRINT.AT 0,CX*3+2; BRIGHT 1;"3x/"; BRIGHT O 

910 RETURN 

950 PRINT AT 0,CXB*x3+2;"  " 

960 RETURN 

970 PRINT AT 21,0;"SI ESTAS SEGURO PULSA *”C”" 

975 LET K$=INKEY$ 

980 IF K$="C" THEN GO TO 10 

990 IF K$="" OR K$="Q" THEN GO TO 975 

995 PRINT AT 21,0;" 

1000 LET CXB=CX 

1010 GO SUB 900 

1020 PRINT AT 0, CXBx*3+2;"Xx/" 

1030 GO SUB 800 

1040 IF INKEY$<>"1" THEN GO TO 1010 

1050 LET CXF=CX 

1060 LET X=CXB 

1070 GO SUB 1500 

1075 IF A=1 THEN GO SUB 950: RETURN 


1080 


CLS 
LET C 
LET D 
FOR B= 
LET A 
LET D 
LET A$(B, A)=B$(C) 

LET C=C-1 

LET A=A+1 

IF A<=D THEN GO TO 390 

NEXT B 

LET D=7 

FOR B=0,TO 4 

LET A=1 

LET D=D-1 

PRINT AT A*2,Bx3+2;A$(A,B+1) 

LET A=A+1 

IF A<>D THEN GO TO 480 

NEXT B 

PRINT AT 1,19;"OROS";AT 3,19;R$(R) 
PRINT AT 1,25;"COPAS";AT 3,25;0$(0) 
PRINT AT 6,19; "ESPADAS";AT 8,19;E$(E) 
PRINT AT 9,24; "BASTOS";AT 11,24;S$(S) 
PRINT AT 13,19;"MAZO";: GO SUB 3960 


PRINT AT 16,24; "MONTON";AT 18,24;M$(M) 

PRINT AT 20,20; BRIGHT 1;"H=AYUDA"; BRIGHT O 

LET CX=0 

GO SUB 800 

GO SUB 900 

IF C=0 AND M=1 THEN IF R=11 AND O=11 AND E=11 AND S=11 THEN GO TO 1600 


IF INKEY$="0" THEN GO SUB 1000 


IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO SUB 2000 


LET FILAB=A-1 


FLASH 1;"MAZO"; FLASH 0: 


FLASH 1;"MONTON"; FLASH O 


.01,40: LET CX=CX+(1 AND C 


.01,40: LET CX=CX+(-1 AND 


": GO TO 600 


1090 LET X=CXF 

1095 GO SUB 1500: IF A=1 THEN GO SUB 950: GO TO 1210 

1100 IF A=11 THEN IF A$(A,X+1)<>"  " THEN RETURN 

1105 IF A$(A,CXF+1)=" " THEN IF A=1 THEN GO TO 1210 

1110 GO SUB 1200 

1120 GO SUB 950 

1130 RETURN 

1200 IF A=1 THEN GO TO 1210 

1205 GO SUB 1300: IF A$(A-1,CXF+1,2)=AS(FILAB, CXB+1,2) OR FINAL<=BASE OR FINAL<> 
BASE+1 THEN RETURN 

1210 LET A$(A, CXF+1)=AS(FILAB, CXB+1) 

1220 LET AS(FILAB, CXB+1)="  ” 

1230 GO SUB 750 

1235 GO SUB 700 

1290 RETURN 

1300 LET P$=AS$(FILAB, CXB+1,1) 

1310 GO SUB 1400 

1315 LET BASE=FINAL 

1320 LET P$=A$(A-1,CXF+1,1) 

1330 GO SUB 1400 

1340 RETURN 

1400 LET FINAL=(1 AND P$="A")+(2 AND P$="2")+(3 AND P$="3")+(4 AND P$="4")+(5 AN 
D P$="5")+(6 AND P$="6")+(7 AND P$="7")+(8 AND P$="J")+(9 AND P$="Q")+(10 AND P$ 
="K"> 

1410 RETURN 

1500 FOR A=1 TO 10 

1510 IF A$(A,X+1)="  " THEN RETURN 

1520 NEXT A 

1530 RETURN 

1600 PRINT AT 21,0; FLASH 1;"LO CONSEGUISTE. . ."; FLASH O 
1610 FOR A=-40 TO 40: BEEP .01,A 

1620 IF INKEY$<>"" THEN GO TO 1630 

1625 NEXT A: IF INKEY$="" THEN GO TO 1610 

1630 PAUSE O 

1640 CLS 

1650 GO TO 100 


2000 IF INKEY$="0" THEN GO TO 2200 

2010 IF INKEY$="C" THEN GO TO 2400 

2020 IF INKEY$="E" THEN 30 TO 2600 

2030 IF INKEY$="B" THEN SO TO 2800 

2040 GO TO 2000 

2200 LET X=CX 

2210 GO SUB 1500 

2220 IF A<>1 THEN LET A=A-1 

2230 IF R$(R)=" " THEN IF A$(A,CX+1,1)="A" THEN GO SUB 2310 
2240 IF R$(R)=" " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 


2250 LET P$=R$(R, 1) 

2260 GO SUB 1400 

2270 LET BASE=FINAL 

2280 LET P$=A$(A, CX+1, 1) 

2290 GO SUB 1400 

2300 IF BASE<>FINAL-1 THEN RETURN 
2310 LET R=R+1: GO SUB 2350 


2320 RETURN 

2350 LET R$(R)=AS(A, CX+1): IF R$(R,2)<>"0" THEN LET R$(R)="  ": LET R=R-1: RETU 
RN 

2360 GO SUB 2370: LET A$(A,CX+1)="  ": RETURN 


2370 PRINT AT 3,19;R$(R) 

2380 LET FILAB=A: LET CXB=CX: GO SUB 750 

2390 RETURN 

2400 LET X=CX 

2410 GO SUB 1500 

2420 IF A<>1 THEN LET A=A-1 

2430 IF O$(0)=" " THEN IF A$(A,CX+1,1)="A" THEN GO TO 2510 
2440 IF O$(0)="- " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 
2450 LET P$=0$(0, 1) 

2460 GO SUB 1400 

2470 LET BASE=FINAL 
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2480 LET P$=A$(A, CX+1,1) 

2490 GO SUB 1400 

2500 IF BASE<>FINAL-1 THEN RETURN 
2510 LET O=0+1: GO SUB 2550 

2520 RETURN 


2560 GO SUB 2570: LET A$(A,CX+1)="  ": RETURN 

2570 PRINT AT 3,25;0$(0) 

2580 LET FILAB=A: LET CXB=CX: GO SUB 750 

2590 RETURN 

2600 LET X=CX 

2610 GO SUB 1500 

2620 IF A<>1 THEN LET A=A-1 

2630 IF E$(E)=" " THEN IF A$(A,CX+1,1)="A" THEN GO TO 2710 
2640 IF E$(E)=" " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 
2650 LET P$-=E$(E, 1) 

2660 GO SUB 1400 

2670 LET BASE=FINAL 

2680 LET P$=A$(A, CX+1,1) 

2690 GO SUB 1400 

2700 IF BASE<>FINAL-1 THEN RETURN 

2710 LET E=E+1: GO SUB 2750 

2720 RETURN 


2760 GO SUB 2770: LET A$(A,CX+1)="  ": RETURN 

2770 PRINT AT 8,19;E$(E) 

2780 LET FILAB=A: LET CXB=CX: GO SUB 750 

2790 RETURN 

2800 LET X=CX 

2810 GO SUB 1500 

2820 IF A<>1 THEN LET A=4-1 

2830 IF S$(5S)=" " THEN IF A$(A,CX+1,1)="A" THEN GO TO 2910 
2840 IF S$(S)="  " THEN IF A$(A,CX+1,1)<>"A" THEN RETURN 
2850 LET P$=S$(5S,1) 

2860 GO SUB 1400 

2870 LET BASE=FINAL 

2880 LET P$=A$(A, CX+1,1) 

2890 GO SUB 1400 

2900 IF BASE<>FINAL-1 THEN RETURN 

2910 LET S=S+1: GO SUB 2950 

2920 RETURN 


2960 GO SUB 2970: LET A$(A,CX+1)="  ": RETURN 
2970 PRINT AT 11,24;5$(8) 

2980 LET FILAB=A: LET CXB=CX: GO SUB 750 
2990 RETURN 

3000 REM PALO A MESA 

3010 IF INKEY$="0" THEN GO TO 3100 
3020 IF INKEY$="C" THEN GO TO 3250 
3030 IF INKEY$="E" THEN GO TO 2400 
3040 IF INKEY$="B" THEN GO TO 3550 
3050 GO TO 3000 

3100 IF R$(R)=" " THEN GO TO 600 

3110 LET X=CX 


3125 IF A=1 THEN GO TO 3150 
3130 LET P$=R$(R) 

3140 GO SUB 3900 

3150 LET A$(A, CX+1)=R$(R) 
3160 LET R$(R)=" 

3170 IF R<>1 THEN LET R=R-1 
3180 LET CXF=CX 

3190 GO SUB 700 

3200 PRINT AT 3,19;R$(R) 
3210 GO TO 600 

3250 IF O$(0)="  " THEN GO TO 600 
3260 LET X=CX 


2550 LET O$(0)=A$(A,CX+1): IF 0O$(0,2)<>"C" THEN LET O=0-1: RETURN 


2750 LET ES$(E)=A$(A,CX+1): IF E$(E,2)<>"E" THEN LET E=E-1: RETURN 


2950 LET S$(S)=A$(A,CX+1): IF S$(S,2)<>"B" THEN LET S=S-1: RETURN 


3120 GO SUB 1500: IF A=11 THEN IF A$(A-1,CX+1)<>"  " THEN GO TO 600 


3270 GO SUB 1500: IF A=11 THEN IF A$(A-1,CX+1)<>"  " THEN GO TO 600 


3275 

3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3400 
3410 
3420 
3425 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3550 
3560 
3570 
3575 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3700 
3710 
3900 
3905 

3910 
3915 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

4000 

4010 

4020 

4030 

4040 

4100 

4110 

4120 

4130 
4140 
4150 
4200 
4210 
4220 
4230 


IF A=1 THEN GO TO 3300 
LET P$=0$(0) 

GO SUB 3900 

LET A$(A, CX+1)=0$(0) 

LET O$(0)=" " 

IF O<>1 THEN LET O=0-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 3,25;0$(0) 

GO TO 600 

1F ES(E)="  " THEN GO TO 600 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF A$(A-1,CX+1)<>"  " THEN GO TO 600 
IF A=1 THEN GO TO 3450 

LET P$-E$(E) 

GO SUB 3900 

LET A$(A, CX+1)=ES(E) 

LET ES(E)=" >” 

IF E<>1 THEN LET E=E-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 8,19;ES$(E) 

GO TO 600 

IF S$(S)="  ” THEN GO TO 800 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF A$(A-1,CX+1)<>"  " THEN GO TO 600 
IF A=1 THEN GO TO 3600 

LET P$=S$(S) 

GO SUB 3900 

LET A$(A, CX+1)=S$(S) 

LET S$(S)="  " 

IF S<>1 THEN LET S=S-1 

LET CXF=CX 

GO SUB 700 

PRINT AT 11,24;S$(S) 

GO TO 600 

PRINT AT 1,19;"OROS";AT 1,25;"COPAS";AT 6,19; "ESPADAS";AT 9,24; "BASTOS" 
RETURN 

IF AS(A-1,CX+1,2)=P$(2) THEN GO TO 600 

LET P$=P$(1) 

GO SUB 1400 

LET BASE=FINAL 

LET P$=A$(A-1,CX+1,1) 

GO SUB 1400 

IF FINAL<>BASE+1 THEN GO TO 600 

RETURN 

PRINT AT 15,19;"88"; OVER 1;CHR$ 8;CHR$ 8;"__" 

PRINT AT 13,19;"MAZO= ";C;" " 

RETURN 

PRINT AT 15,19;B$(C) , 
IF INKEY$="M" THEN GO TO 4100 

IF INKEY$="T" THEN GO SUB 4200: IF A$(A,CX+1)=B$(C+1) THEN RETURN 
IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 4300 
GO TO 4000 

LET M$(M)=B$(C) 

PRINT AT 18,24;M$(M) 

LET M=M+1 

LET C=C-1 

GO SUB 3960 

RETURN 

GO SUB 900: GO SUB 800 

IF INKEY$<>"1" THEN GO TO 4200 

LET X=CX 

GO SUB 1500: LET A$(A,CX+1)=B$(C): IF A=11 THEN IF A$(A,CX+1)<>"  " THEN 


RETURN 


4235 
4240 


IF A=1 THEN GO TO 4250 
GO SUB 4500: IF BASE>=FINAL OR BASE<>FINAL-1 OR A$(A,CX+1,2)=AS$(A-1,CX+1, 2) 


THEN LET A$(A,CX+1)="  ": RETURN 


4250 


LET C=C-1 
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4260 
4270 
4280. 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
: GO 
4370 
4380 
4500 
4510 
4520 
4530 
4540 
4550 
5000 
5010 
5020 
5100 
5110 
5120 
5130 
5140 
TURN 
5150 
5155 


LET CXF=CX 

GO SUB 700 

GO SUB 3960 

RETURN 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 4320 
GO TO 4300 

LET X=CX 

GO SUB 1500: IF A=11 THEN IF A$(A,CX+1)<>"  " THEN RETURN 

LET A$(A, CX+1)=B$(C) 

GO SUB 2000 

IF R$(R)=B$(C) OR O$(0)=B$(C) OR E$(E)=B$(C) OR S$(S)=B$(C) THEN LET C=C-1 
SUB 3960: RETURN 

LET A$(A, CX+1)=" 

GO TO 4000 

LET A$(A, CX+1)=B$(C) 

LET FILAB=A 

LET CXF=CX 

LET CXB=CX 

GO SUB 1300 

RETURN 

IF INKEY$="T" THEN GO TO 5100 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 5200 
GO TO 5000 

GO SUB 900 

GO SUB 800 

IF INKEY$<>"1" THEN GO TO 5100 

LET X=CX 

GO SUB 1500: IF A=11 AND A$(A,CX+1)<>"  " THEN PRINT AT 16,24;"MONTON": RE 


IF A=1 THEN LET A$(A,CX+1)=M$(M-1): GO TO 5160 
GO SUB 5500: IF BASE>=FINAL OR BASE<>FINAL-1 OR A$(A,CX+1,2)=A$(A-1,CX+1, 2) 


THEN LET A$(A,CX+1)="  ": GO TO 5320 


5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
ET M= 
5270 
5280 
5300 
5310 
5320 
5330 
5500 
5510 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 


LET M=M-1 

LET CXF=CX 

GO SUB 700 

GO TO 5300 

IF INKEY$="0" OR INKEY$="C" OR INKEY$="E" OR INKEY$="B" THEN GO TO 5220 
GO TO 5200 

LET X=CX 

GO SUB 1500 

LET A$(A, CX+1)=M$(M-1) 

GO SUB 2000 

IF R$(R)=M$(M-1) OR O$(0)=M$(M-1) OR E$(E)=M$(M-1) OR S$(S)=M$(M-1) THEN L 
M-1: LET A$(A,CX+1)=" ": GO TO 5300 

GO TO 5320: LET (A$(A, CX+1)="  " 

RETURN 

LET M$(M)="  ": IF M=1 THEN PRINT AT 18,24;" ": GO TO 5320 

PRINT AT 18,24;M$(M-1) 


PRINT AT 16,24; "MONTON" 

RETURN 

LET A$(A, CX+1)=M$(M-1) 

GO TO 4510 

RANDOMIZE USR 5E4: CLS 

PRIVT AT OD ol CURSOR A LA IZQUIERDA" 
PRENIA 05 carril. CURSOR A LA DERECHA” 
PRINT DS COGER UNA CARTA” 

PRIND dotes dr SOLTAR UNA CARTA" 
PRLIND le e ROBAR CARTA DEL MAZO” 
PRINTS. Me PASAR CARTA AL MONTON” 
PRINT 1 E sa PASAR CARTA A LA MESA" 
PRIND  ioco SOLTAR CARTA EN MESA” 
PRINT " O,C,E,B...PASAR CARTA AL PALO” 
BRIND. NL. ss PASA CARTA DEL MONTON" 
PRINDOS Mis <a isis A LA MESA" 

ERIN lr da SOLTAR CARTA EN MESA" 
PRINT " O,C,E,B...AL PALO” 

LS, LR PASA CARTA DEI PALO” 


ERINT a ies A LA MESA" 


DNTOLEXINT Oe Ta Ha: RENDIRSE” 
5790 PAUSE O 


5800 RANDOMIZE USR 50100 
5810 RETURN 


ET C=0 
20 FOR A=1 TO 10: LET C=C+1: 


Empezaremos con las de uso del pro- 
grama. 

Una vez que hayas metido el programa 
en tu SPECTRUM y hayas hecho RUN, la 
pantalla del ordenador se volverá blan- 
ca y al rato aparecerá un mensaje en 
FLASH que te indicará que el programa 
está barajando las cartas. Tras unos se- 
gundos aparecerá un mensaje que te 
dice que cortes y unos números que se 
suceden a gran velocidad. En este mo- 
mento tienes que pulsar una tecla para 
que el programa corte. 

Una vez llegados a este punto apare- 
cerá en pantalla el tablero con las car- 
tas. A partir de este momento puedes em- 
pezar a jugar. Si no te acuerdas de todas 
las teclas que puedes utilizar en el pro- 
grama, pulsa la tecla «H» y te aparecerá 
un resumen de ellas por pantalla. 

El objetivo del juego es formar cada 
palo desde el AS hasta el REY. 


Al principio del juego, y después de 
cortar, te aparecerán las cartas en la 
pantalla de arriba a abajo y de izquier- 
da a derecha. Las cartas sobrantes for- 
marán el mazo. 


La forma de jugar es la siguiente: 


1. Se reordenan las cartas que inicial- 
mente están en la mesa. Con las teclas 5 
y 8 se mueve el cursor superior (5 = iz- 
quierda, 8 = derecha). El cursor apunta a 
una columna y, en esta columna, a la 
carta situada más bajo. Para coger car- 
ta tienes que pulsar el 0, después de mo- 


SIGO PRINT. “y Tiida SOLTAR CARTA EN MESA” 


5780 PRINT AT 21,0; FLASH 1;"PULSA UNA TECLA PARA SEGUIR. "; FLASH O 


5900 DATA 33,0,64,17,214,216,1,0,27,237,176,201 
DATA 33,214,216,17,0,64,1,0,27,237,176,201 


10>CLEAR :DIM A$(11,5,2):DIM B$(40,2):DIM C$(40,2):DIM E$(11,2):DIM 0$(11,2): 
DIM R$(11,2):DIM S$(11,2):DIM M$(30,2):LET R=1:LET O=1:LET E=1:LET S=1:LET M=1:L 


RESTORE 90: 


IF C=8 THEN LET C=10 


A LA TZOUTER 
LA. DERECHA 


, 
CARTA EN MES 


A DEL PF 


= OA 
35. CARTA En Mes 
¿E 


A — UNA TECLA PARA SEGUIR. 


[A El programa ejecutante. 


ver el cursor hasta la columna deseada 
y pulsar el 1 para soltar la carta. Si quie- 
res dejar la carta donde estaba tienes 
que pulsar el 1 con el cursor en la misma 
columna. La carta se puede mover de 
una a otra columna si la carta de la co- 
lumna inicial es de distinto palo que la 
carta de la columna final. Además, la 
carta inicial debe ser un punto más baja 
que la final, es decir, que si la carta ini- 
cial es un 7 y la final una SOTA, podrás po- 
ner el 7 sobre la sota. 

2. Robar del mazo pulsando la R. La 
carta superior del mazo se levantará pu- 
diendo hacer con ella lo siguiente: 

a) Pasarla a la mesa pulsando | y con- 
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trolando con 5 y 8 el cursor. Pulsar 1 para 
dejar la carta. 


b) Pasarla al palo correspondiente 
pulsando O, C, E o B, según sea el palo 
de la carta. Si no hay ninguna carta en el 
palo, la primera tiene que ser un AS. 


Cc) Pasarla al montón pulsando H. El 
montón está formado por las cartas que, 
o bien no podemos poner en la mesa, o 
bien no nos conviene ponerla en la 
mesa. 


3. Pasar carta de la mesa al palo 
correspondiente situando el cursor en la 
columna donde está la carta y pulsar O, 
C,E OB según sea el palo de la carta. Las 
cartas hay que pasarlas al mazo por or- 
den, no pudiendo poner, por ejemplo, el 
5 de copas si no está el 4 de copas. 


4. Pasar carta del montón al: 

a) Palo pulsando N y después O, C, E 
o B. 

b) A la mesa, pulsando N primero y 


después de | situar el cursor en la colum- 
na deseada y pulsar 1 para soltarla. 


5. Pasar del palo a la mesa pulsado 
primero P y después O, C,E OB para si- 


tuar la carta, si es posible, en la posición 
del cursor en la mesa. 

La tecla Q nos servirá para rendirse y 
empezar de nuevo. 

Cuando la carta superior de cada palo 
es el rey, entonces habrás terminado con 
éxito la partida. 


OROS COPAS 


ESPADAS 


BASTOS 


MAZO= 25 
H=. 


MONTON 


H=AYUDA 


Instrucciones del programa 


OMO conclusión de 
los conceptos ex- 
puestos sobre las ta- 
blas de decisión, pre- 
sentamos las normas 
que suelen seguirse 
en el análisis de las 
tablas, según el tipo 
de reglas que se han utilizado. 

Hay que controlar dos aspectos: la 
existencia de redundancias (para elimi- 
narlas adecuadamente) y el número to- 
tal de reglas (para asegurarnos de que 
la tabla es completa). 

En todos los casos se supone que se 
cumplen las siguientes condiciones: 

a) Latabla de decisión es limitada (es 
decir, todas y cada una de las condicio- 
nes presentes en la tabla pueden eva- 
luarse en forma afirmativa o negativa). Si 
la tabla no era originalmente limitada, ha 
de convertirse en limitada para hacer las 
evaluaciones que indicamos a continua- 
ción. 

b) Cada regla de la tabla de decisión 
conduce a un tratamiento. 

c) Las condiciones presentes son in- 
dependientes entre sí (es decir, el que se 
cumpla una condición en una situación 
determinada no significa que se cumpla 
ninguna otra). R 

Vamos a denotar por «n» el numero 
de condiciones que aparecen en la ta- 
bla de decisión, independientemente 
del número de tratamientos que aparez- 
can. 


O Análisis de tablas de decisión 
con reglas AND 


Se examinarán dos aspectos: 
a) Eliminación de redundancias: 


TECNICAS DE ANALISIS 


TABLAS DE DECISION (y lll) 


Para ello, se comparan la reglas de 2 
en 2. Las funciones de decisión han de 
ser distintas al menos para una evalua- 
ción de alguna de las condiciones (nor- 
malmente serán distintas en varios de los 
casos posibles). Se produce la redundan- 
cia cuando hay dos reglas que no con- 
tienen esa diferencia de evaluación y, 
por tanto, habrá que eliminar una de 
ellas. Puede suceder que, en el análisis 
anterior, se detecte que dos condiciones 
que se tenía por distintas son, en reali- 
dad iguales o dependientes; si, como re- 
sultado de esta evaluación, se modifica 
el conjunto de condiciones definido, es 
imprescindible rehacer todo el examen 
de redundancias desde el principio, 
para asegurar la consistencia del análi- 
sis realizado. En ocasiones, incluso dos 
reglas son redundantes pero los trata- 
mientos a que dan lugar son distintos 
(zona inferior de la tabla): en ese caso, 
se dice que hay contradicción entre re- 
glas y es imprescindible la eliminación 
de una de ellas (una vez examinada cui- 
dadosamente la funcionalidad de am- 
bas). 


b) Control de completud: 


Para que la tabla de decisión sea com- 
pleta, el número de combinaciones en- 
tre las condiciones que se puede dar (2”) 
ha de ser igual al número de reglas que 
aparecen en la tabla, teniendo en cuen- 
ta las indiferencias existentes (casos en 
que la condición ni ha de cumplirse ni 
dejar de cumplirse: se esciben como: - 
o como ”). 


Para tener en cuenta las indiferencias, 
las reglas que contienen una sola (un 
solo - en la tabla) se computan como 2. 
Si una regla tiene dos indiferencias (dos 


la TÉCNICAS DE ANÁLISIS 


- en su columna correspondiente), se 
cuentan cuatro posibles casos para esa 
regla: puede pensarse que cada una de 
las indiferencias puede serS o N y, por 
tanto, hay 2? = 4 posibles combinaciones 
(SS, SN, NS, NN). Si una regla tiene tres in- 
diferencias, se cuenta como 8 (2?) pues 
pueden darse ocho combinaciones para 
esa regla, según los valores que tomen 
esas indiferencias (SSS, SSN, SNS, SNN, 
NSS, etc.). Así pues, si denotamos por 
N(=2") el número de condiciones presen- 
tes en las reglas AND, para que la tabla 
sea completa ha de cumplirse que 


N= Y 2-N 
I=0 


donde m es el número máximo de indife- 
rencias que aparece en cualquiera de 
las reglas de la tabla de decisión. Obsér- 
vese que los primeros sumandos de la 
suma anterior son: 22-N,=1-N,=N, (nú- 
mero de reglas simples, es decir, sin indi- 
ferencias); 21 -N, =2- N, (donde N, es el 
número de reglas que tiene una indife- 
rencia); 2? - N, = 4 - N, (N, es el número de 
reglas presentes con dos indiferencias), 
etcétera. 


Si en la tabla de decisión hay una re- 
gla ELSE, y esta regla agrupa N, reglas, la 
completud de la tabla viene dada por 


N= 2 2-N+N 


O Análisis de tablas de decisión 
con reglas AND y OR 


a) Eliminación de redundancias. 

Hay que comparar dos a dos las reglas 
AND con las OR y las OR entre sí. 

Cuando se compara una regla AND 
con otra OR, se comprueba que no hay 
redundancia si las dos funciones presen- 
tan evaluaciones contrarias para cada 
condición, excepto en el caso en que en 
alguna de las funciones presente una 
marca de indiferencia. 

En el caso de la comparación entre re- 
glas OR, no habrá redundancia o depen- 
dencia cuando las funciones de ambas 
presentan una anotación * en cada una 
de sus condiciones, excepto en una, que 
debe ser la misma para las dos y con 
evaluaciones distintas. 


b) Control de completud. 

Las reglas de tipo AND se cuentan 
como se ha descrito anteriormente. 

En las de tipo OR, hay que multiplicar 
el número de reglas con «j» ocurrencias 
por un coeficiente (como en el caso 
AND) que en este caso es 2” - 2): es de- 
cir, de las 27 posibles combinaciones que 
se pueden establecer en cada regla, 
hay que descontar 2! que no se obtienen 
por la aparición de «j» indiferencias. Por 
tanto, la suma de todas las posibilidades 
con reglas OR viene dada por la expre- 
sión 


z (2-2) -N 


Obsérvese que 2” = N es el número de 
condiciones posibles y los primeros su- 
mandos de la suma anterior son (2” —- 1)- 
N, (donde N, es el número de reglas OR 
con cero indiferencias), (27 —- 2)-N, (para 
las reglas con una indiferencia), etc. 

La suma total de las reglas para el 
cálculo de la completud será (para esta 
situación en que existen reglas AND y re- 
glas OR), 


m p 
N= 2 2-N+N+ 2 2-8, 


Análisis de tablas de decisión 
m con condiciones dependientes 


En este caso, la dependencia entre 
condiciones tiene lugar únicamente en- 
tre reglas AND, ya que las reglas OR no 
pueden contradecirse entre si. 

El cálculo de reglas total se hace como 
en los casos anteriores y las condiciones 
de redundancia no varían. 

En este caso, no existen 27 combinacio- 
nes (el número N antes considerado) ya 
que entre dos o más condiciones no se 
formarían todas las combinaciones posi- 
bles. 

Si consideramos que hay G, grupos de 
dos condiciones dependientes entre sí y 
G, grupos de tres condiciones, etc., el 
factos a introducir será K-G,, de modo 
que el número total de reglas será 


| e 
Tr K-G, donde «|» es el numero de con- 
0 


K= 
diciones dependientes entre sí que exis- 
tan en el grupo de condiciones que ten- 
ga mas. 


Matrices 
o tablas 


N el capítulo anterior 
hemos visto cómo 
pueden proporcio- 
nársele a los progra- 
mas datos aislados 
(escalares) o colec- 
ciones de datos (vec- 
tores o series). Vamos 
a dedicar ahora nuestra atención a es- 
tructuras algo más complejas, que reci- 
ben el nombre de matrices o «tablas». 

Una tabla o matriz es un conjunto de 
datos dispuestos a lo largo de dos dimen- 
siones, en forma de rectángulo. Veamos 
un ejemplo: 


Siempre es posible considerar una ta- 
bla como una colección de vectores o 
series de datos. En el ejemplo anterior, 
podemos ver fácilmente que la matriz se 
compone de las tres series siguientes: (1, 
2, 3, 4), (5, 6,7, 8) y (9, 10, 11, 12). Estas 
tres series se llaman las «filas» de la ma- 
triz. Al leer sucesivamente las filas de una 
matriz, enunciamos todos los elementos 
de ésta en un orden determinado, de iz- 
quierda a derecha y de arriba a abajo: 
1,2,3,4,5,6,7,8,9, 10, 11, 12. Se dice, 
en este caso, que la matriz ha sido leída 
«por filas». 

Por otra parte, y puesto que la tabla es 
rectangular, también podemos conside- 


TECNICAS 
DE PROGRAMACIÓN 


ESTRUCTURA DE DATOS 


rarla como una colección de las cuatro 
series o vectores siguientes: (1, 5, 9), (2, 
6, 10), (3, 7, 11), (4, 8, 12). Cada una de 
estas series es una «columna» de la ma- 
triz. Además, al leer sucesivamente las 
columnas de la matriz, enunciamos sus 
elementos de arriba a abajo y de dere- 
cha a izquierda (al estilo japonés): 1, 5, 
9,2,6,10,3,7, 11, 4, 8, 12. Decimos en- 
tonces que la matriz ha sido leída «por 
columnas». 

Por lo que acabamos de ver, está cla- 
ro que la matriz del ejemplo tiene tres fi- 
las y cuatro columnas. El número total de 
datos que contiene es precisamente 
igual al producto del número de sus filas 
por el numero de sus columnas. Es decir: 
3x4 = 12. Es fácil comprobar que, en 
efecto, la tabla anterior tiene doce da- 
tos. 

Veamos algunos ejemplos más. La ta- 
bla 


030 
ovooñaRn 


tiene cinco filas y dos columnas. Vemos, 

pues, que es posible que una matriz ten- 

ga menos columnas que filas, lo que le 

dará una forma alargada verticalmente. 
La tabla 


ha 
on» 
0 ou 


tiene tres filas y tres columnas. Por razo- 
nes obvias, cuando una matriz tiene el 
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mismo número de filas que de columnas, 
se dice que es «cuadrada». En caso con- 
trario, se dice que es «rectangular». 


La tabla 


es un poco especial. Tiene cuatro filas: 
(DM, (), (8) y (4), pero una sola columna: 
(1, 2, 3, 4). Finalmente, la tabla 


pisas 


tiene una sola fila: (1, 2, 3, 4) y cuatro co- 
lumnas: (1), (2), (3) y (4). Es fácil darse 
cuenta de que esta última tabla puede 
considerarse también como una serie o 
vector de cuatro elementos. 

Las tablas o matrices se usan frecuen- 
temente en los programas, pues no es 
raro que los datos que hemos de utilizar 
se distribuyan de forma natural en una 
disposición rectangular. En el lenguaje 
BASIC, una tabla debe declararse, al 
igual que un vector, mediante una ins- 
trucción DIM, pero en lugar de indicar el 
número de sus elementos, daremos el nú- 
mero de sus filas y el número de sus co- 
lumnas, como en el siguiente ejemplo: 


PE 


donde declaramos que la variable M es 
una tabla de tres filas y cuatro columnas, 
como la de nuestro primer ejemplo. 

¡Bien! Ya tenemos definida la matriz. 
Pero ahora falta llenar sus casillas con los 
doce valores correspondientes. En BASIC 
esto se puede hacer de la siguiente ma- 
nera: 


M(1,1)=1 
LET M(1,2)=2 
LET M(1,3)=3 
LET M(1,4)=4 
LET M(2,1)=5 
LET M(2,2)=6 
LET M(2,3)=7 
LET M(2,4)=8 
LET M(3,1)=9 
LET M(3,2)=10 
LET M(3,3)=11 
M(3,4)=12 


En el caso concreto de nuestro ejem- 
plo, podemos llenar la matriz de otra ma- 
nera, más rápida, haciendo uso del he- 
cho de que los doce valores son conse- 
cutivos y utilizando dos bucles: uno sobre 
las filas y otro sobre las columnas. El pro- 
grama correspondiente quedará así: 


LET K=1 
FOR I=1 TO 3: FOR J=1 TO 4 
LET M(1,J)=Kz LET K=K+1 

NEXT J:z NEXT 1 


Explicaremos este programa cuando 
hablemos de los bucles. Por el momento, 
basta con ver que, efectivamente, el pro- 
grama 3 es totalmente equivalente al 2, 
pues realiza la misma función. Eso puede 
comprobarse ejecutándolo en cualquier 
ordenador que disponga de un intérpre- 
te de BASIC. Pero todavía se puede sim- 
plificar un poco más, como en la siguien- 
te versión: 


FOR I=1 TO 3: FOR J=1 TO 4 
LET M(1,J)=J+4% (1-1) 
NEXT J:z NEXT 1 


Obsérvese, en efecto, que la expresión 
J+4"(l-1) genera precisamente los núme- 
ros de 1 a 12 a medida que | varía de 1 
a 3 y J varía de 1 a 4, de acuerdo con los 
límites de los bucles correspondientes. 
Todo esto quedará explicado con deta- 
lle más adelante. 

En BASIC, para que aparezcan por la 
pantalla los valores de la tabla M, pode- 
mos hacer dos cosas: o bien escribirlos 
uno por uno, o bien conjuntamente, utili- 
zando bucles. Por ejemplo, supongamos 
que queremos ver en la pantalla el valor 
del elemento de la tabla situado en la se- 
gunda fila y la tercera columna. Bastaría, 
para ello, con la instrucción siguiente: 


PRINT M(2,3) 


y obtendremos el resultado (7). En cam- 
bio, para que la tabla nos aparezca en- 
tera, tendremos que utilizar el doble bu- 
cle siguiente: 


FOR I=1 TO 3: FOR J=1 TO 4 
PRINT M(1,J); 
NEXT Jz PRINT: NEXT 1 


que producirá el resultado indicado. La 
primera instrucción PRINT (PRINT M (l,J);) 
termina en punto y coma para indicarle 
al intérprete que no debe escribir un 
paso de línea después de este elemento 
de la tabla. La segunda instrucción PRINT, 
que sólo se ejecuta una vez al final de 
cada fila, escribe precisamente el paso 
de línea correspondiente. 

Finalmente, veamos un programa com- 
pleto escrito en BASIC que declara una 
tabla, llena los valores correspondientes 
y los escribe por la pantalla: 


DIM M(3,4) 
FOR I=1i TO 3: FOR J=1 TO 4 


10 

20 

30 LET M(1,J)=J+4x (1-1) 
* 40 NEXT J:z NEXT 1 

50 

60 

70 


FOR I=1 TO 3: FOR J=1 TO 4 
PRINT M(1,J); 
NEXT Jz PRINT: NEXT 1 


Veamos ahora cómo se trabaja con ta- 
blas en el lenguaje PASCAL. Como cual- 
quier otra variable, es preciso declarar- 
las, lo que se hace con una instrucción 
muy pafecida a la que utilizamos en el 
capítulo anterior para declarar vectores: 


m: array[1..3,1..4] of integer; 


Esta instrucción define m como una ta- 
bla de números enteros («integer» en in- 
glés) de tres filas y cuatro columnas. Ob- 
sérvese que se utiliza también la palabra 
reservada «array» (que significa «secuen- 


cia», «disposición», y en este caso equi- 
vale a «tabla», equivalente a DIM de 
BASIC. 

En PASCAL también es posible llenar la 
tabla elemento a elemento, como vimos 
en BASIC. Se haría así: 


mC1,11:=1; 
m[1,21:=2; 
m[1,31:=3; 
m[1,41:=4; 
mC2,11:=5; 
m[2,21:=6; 
m(2,31:=7; 
mC2,4]:=8; 
m(3,11:=9; 
m[3,21:=10; 
m[3,31:=11; 
m[3,41:=12; 


Pero en este caso es mejor hacerlo me- 
diante un bucle parecido al del progra- 
ma BASIC: 


for iz=1 to 3 do 
for j:=1 to 4 do 
mlizjldi= j+4X(i-1)3 


Para escribir un valor de la tabla en la 
pantalla, por ejemplo, el situado en la se- 
gunda fila y la tercera columna, podría- 
mos utilizar la instrucción «write» (escribir, 
en inglés), equivalente a PRINT de BASIC, 
de la siguiente manera: 


do ri 


Para escribir la tabla entera, usaremos 
un doble bucle muy semejante al de BA- 
SIC, donde «write(mli,j], ' ')» escribe el va-- 
lor del elemento de la matriz m situado 
en la fila i¡ y en la columna j, seguido de 
un blanco, pero sin pasar a la línea si- 
guiente. En cambio, la instrucción «wri- 
teln», que se ejecuta al final de cada fila, 
escribe un paso de línea que nos permi- 
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te continuar escribiendo una nueva fila 
en la linea siguiente. 


for iz=1 to 3 do 
begin 
for jz=1 to 4 do 
writelm[i,jl,” *)3 
writeln; 
end 


Finalmente, veamos el programa com- 
pleto escrito en PASCAL, que nuevamen- 
te declara una matriz llamada «m», llena 
sus casillas con los valores de 1 a 12 y los 
imprime en forma de tabla. 


program TABLA; 


var. 
i, j: integer; 
mz array[1..3,1..41 of integer; 


begin 
for iz=1 to 3 do 
for j:z=1 to 4 do 
mCisjldi= j+4R(i-1)3 
for iz=1 to 3 do 
begin 
for j:z=1 to 4 do 
write(mli,jld,” ”); 
writeln; 
end 


end. 


que produce el siguiente resultado al 
ejecutarlo: 


Por último, vamos a ver cómo se utilizan 
las tablas en el lenguaje APL. En este len- 
guaje no es necesario declararlas: basta 
con asignarle a una variable el valor 
correspondiente. Existen dos modos prin- 
cipales de construir tablas en el lengua- 
je APL: por enumeración o por cálculo. 

Una tabla se construye por enumera- 
ción por medio del símbolo p (la letra 
griega rho). A la izquierda de este símbo- 
lo se coloca el número de filas y el núme- 
ro de columnas que va a tener la matriz, 


y a su derecha se enumeran los valores 
que van a tomar los distintos elementos, 
leídos por filas. El resultado puede asig- 
nársele a una variable, que llamaremos 
M, como en los ejemplos anteriores: 


En este caso concreto, la expresión an- 
terior puede reducirse, pues existe en 
APL un símbolo (representado por la letra 
griega ¡ota) que, aplicado a cierto nú- 
mero entero positivo, produce la serie de 
todos los números sucesivos desde 1 has- 
ta dicho entero. Por ejemplo, 15 equivale 
a la serie 1, 2, 3, 4, 5. En nuestro caso, 112 
corresponderá a la serie de números del 
1 al 12. Utilizando este símbolo, el progra- 
ma anterior quedará: 


AR oc 


APL es un lenguaje especialmente di- 
señado para trabajar con facilidad con 
series y tablas de datos. Por esta razón, 
no son precisos bucles para presentar en 
la pantalla los valores de la tabla que 
acabamos de crear. Basta con invocar su 
nombre y obtendremos el resultado, 
correctamente encolumnado. 


En consecuencia, el programa com- 
pleto que crea una tabla de tres filas y 
cuatro columnas, llena sus valores y los 
imprime por la pantalla, se reduce en el 
caso de APL a las dos instrucciones si- 
guientes: 


Esto en el caso de que queramos con- 
servar la tabla en la variable M. Si lo úni- 
co que queremos es verla, pero no guar- 
darla, el programa anterior se reducirá a 
la instrucción única: 


que, como se indica, produce directa- 
mente el resultado deseado. 

La segunda manera de generar tablas 
en APL es aplicando un cálculo determi- 
nado a los elementos de dos series de 
datos. Recordemos, por un momento, la 
tabla de sumar que estudian los niños en 
el colegio, y que puede representarse 
así: 


VO=J00-EMN pa 


¿Cómo se obtiene esta tabla? Es fácil 
ver que se parte de dos series de datos 
iguales a 1, 2, 3, 4, 5, 6, 7, 8, 9, una de 
las cuales se encuentra en los encabeza- 
dos de las filas y la otra en los de las co- 
lumnas. Un elemento cualquiera de la ta- 
bla (por ejemplo, el de la tercera fila y la 
cuarta columna) se obtiene sumando el 
tercer valor de la serie de datos corres- 
pondiente a las filas (el encabezado de 
la tercera fila) con el cuarto valor de la 
correspondiente a las columnas (el en- 
cabezado de la cuarta columna). En de- 
finitiva, operando de esta manera con to- 
das las combinaciones posibles de un 
elemento de la serie de filas y uno de la 
serie de columnas, se obtiene la tabla 
entera. 


En APL esta operación se representa, 
simplemente, con la línea siguiente: 


12345678 9..123456 7.8 9 


donde la colección de datos correspon- 
diente a las filas se escribe a la izquier- 
da; la de las columnas a la derecha; y en 
medio se coloca un círculo pequeñito 
(que suele obtenerse en los teclados APL 
de la tecla de la Jen posición de mayús- 
culas), seguido de un punto y de la ope- 
ración que se desea realizar entre los 
elementos de las dos colecciones de da- 
tos. El resultado de ejecutar la línea an- 
terior será el siguiente: 


El procedimiento es totalmente gene- 
ral. Las series izquierda y derecha no tie- 
nen por qué ser iguales, y en lugar de la 
operación suma podríamos haber utiliza- 
do otra cualquiera. Por ejemplo, si pusié- 
ramos el signo «por» (x), obtendríamos lo 
tabla de multiplicar. 

Recordando que el símbolo 1 aplicado a 
un entero nos produce los números con- 
secutivos desde 1 hasta el entero, pode- 
mos simplificar más aún la generación de 
la tabla de sumar, reduciéndola a: 


ooo Jan um 
PROVDoJoaantu 


pe 
> 


En el capítulo siguiente desarrollare- 
mos una aplicación completa de utilidad 
práctica, basada en la utilización de ta- 
blas de valores. 


ODOS hemos oído ha- 
blar de los Tratamien- 
tos de Textos como 
una de las herramien- 
tas más necesarias y 
útiles disponibles en 
un ordenador. Pero 
¿sabemos realmente 
qué es y para qué sirve un Tratamiento 
de Textos? 


Una aplicación de este tipo es algo 

más que un programa para escribir do- 
cumentos, es decir, no es una “máquina 
de escribir electrónica”, sino que es un 
eslabón más de la cadena de utilización 
de un ordenador como herramienta de 
productividad, ya que permite la intro- 
ducción de información en el ordenador 
para que sea elaborada más adelante; 
ya de forma impresa o bien por otro pro- 
grama, como una base de datos. 


Aparte del hecho de introducir el texto 
o datos en el ordenador, podemos resal- 
tar algunos de los aspectos más relevan- 
tes que lo diferencian de una máquina 
de escribir: 


— Corrección de una parte del texto 
sin necesidad de recomponer o corregir 
el resto del texto, ya que éste se reajus- 


APLICACIONES 


TRATAMIENTO DE TEXTOS 


tará de forma automática al introducir la 
corrección. 


— Posibilidad de realizar “plantillas” 
que permiten evitar la introducción de un 
texto que tenga que ser repetido en va- 
rios documentos, como cabeceras, des- 
pedidas, dirección del usuario, etc. 


— El almacenamiento se reduce de 
una forma considerable, ya que pode- 
mos tener una gran cantidad de docu- 
mentos archivados en un solo disquete. 


Antes de pasar a detallar las caracte- 
rísticas básicas de un procesador de tex- 
to, es conveniente hacer notar que su 
uso de una forma eficaz está condiciona- 
do al ordenador disponible, siendo pre- 
ferible un ordenador con una capacidad 
de memoria algo elevada (128 K min.), y 
la utilización de disquetes como unidad 
de almacenamiento externa. 


[a Características técnicas 


— Avance automático de línea 


El usuario no tiene que preocuparse de 
donde acaba la linea actual del texto, 


ya que es el programa el encargado de 
controlar la longitud de la línea y pasar 
a la siguiente si se excede ésta. 


— ¡Inserción y supresión de caracteres 
en las posiciones deseadas. 


— Ajuste automático de los párrafos, 
en función de las modificaciones realiza- 
das en él, en alguna de las funciones an- 
teriormente dichas. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28046 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 


con el objeto de discutir los pormenores de la 
negociación. 


Me congratulo con la noticia del nacimiento de 
su segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 
tadora esposa. 


Atectuosamente: 
Virginia Muñoz 


A Párrafo sin sangrado. 


13 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
280416 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negociación. 

Me congratulo con la noticia del nacimiento 
de su segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 

Afectuosamente: 

Virginia Muñoz 


[A Párrafo reformado. 


— Justificación del texto en los márge- 
nes escogidos por el usuario. Con esta 
función el texto se podrá alinear en algu- 
no de los márgenes, izquierdo o dere- 
cho, o en ambos, mejorando con ello la 
presentación del texto. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
280416 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 


no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negoclación. 


Me congratulo con la noticia del nacimiento 
de su segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 


Atectuosamente: 
Virginia Muñoz 


[A Texto ajustado a la derecha 
y a la izquierda. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos 
el pasado 26 de los corrientes, considero 
oportuno el mantener una reunión el próximo 
día 28, con el objeto de discutir los 
pormenores de la negociación. 


Me congratulo con la noticia del nacimiento 
de tu segundo vástago, aprovechando la 
ocasión para expresarle mi enhorabuena a su 
encantadora esposa. 


Afectuosamente: 


Virginia Muñoz 


[A Texto ajustado a la izquierda. 


— Búsqueda y sustitución de palabras 
y frases, de forma completamente auto- 
matica. 


e APLICACIONES 


Estimado Roberto: 

El motivo de la presente es convocarte para 
la concentración preparatoria del partido de 
fútbol que tendrá lugar frente a la selección 
de Madagascar. 


Te recomiendo Roberto que te lleves puestas 
las botas por lo que pudiera pasar. Sin más 
que relatarte, Roberto, recibe un cordial 
saludo de tu presidente: 


Paloma Gandiel 


[A Ejemplo de búsqueda y sustitución. 


Estimado Gaby: 

El motivo de la presente es convocarte para 
la concentración preparatoria del partido de 
fútbol que tendrá lugar frente a la selección 
de Madagascar. 


Te recomiendo Gaby que te lleves puestas 
las botas por lo que pudiera pasar. Sin más 
que relatarte, Gaby recibe un cordial 
saludo de tu presidente: 


Paloma Gandiel 


[A Ejemplo de búsqueda y sustitución. 


— Paginación automática del texto, 
ajustando el texto entre los márgenes iz- 
quierdo y derecho, superior e inferior en 
cada página. ) 

— Ajuste del salto entre lineas 


— Impresión del texto con posibilidad 
de elegir el estilo de impresión de todo 
o de una parte del texto. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 294 
28046 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el e 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 


con el objeto de discutir los pormenores de la 
negociación. 


Me congratulo con la noticia del nacimiento de 
su segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 
tadora esposa. 


Atectuosamente: 
Virginia Muñoz 


[A Espaciado sencillo entre líneas. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
280416 Madrid 
Estimado Eduardo: 
A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 


no el mantener una reunión el próximo día 28, 
con el objeto de discutir los pormenores de la 
negociación. 

Me congratulo con la noticia del nacimiento 
de tu segundo vástago, aprovechando la oca- 
sión para expresarle mi enhorabuena a su en- 
cantadora esposa. 


[A Espaciado doble entre líneas. 


— Numeración automática de las pá- 
ginas. 

— Movimiento de parte del texto de 
una posición a otra o posibilidad de al- 
macenar éste en el disco para su poste- 
rior recuperación. 

— Marginación variable. Esta función 
permite ajustar los márgenes del docu- 
mento de tal forma que se acomoden al 
tamaño de la página que vamos a usar. 


13 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: 


A raíz de la conversación que mantuvimos el 
pasado 26 de los corrientes, considero oportu- 
no el mantener una reunión el próximo día 28, 
con el Serra de discutir los pormenores de la 
negoclac 


Me congratulo con la noticia del nacimiento de 
tu segundo vástago, aprovechando la ocasión 
para expresarle mi enhorabuena a su encan- 
tadora esposa. 


43 de Febrero de 1987 


Sr. D. E. Gurbindo 
Príncipe de Vergara, 291 
28016 Madrid 


Estimado Eduardo: 


A raíz de la conversación que 
mantuvimos el pasado 26 de los 
corrientes, considero oportuno el 
mantener una reunión el 
próximo día 28, con 
el objeto de discutir los 
pormenores de la negociación. 


Me congratulo con la noticia 
del nacimiento de tu segundo vástago, 
aprovechando la ocasión para expresarle 


í_ Margen izquierdo ancho. 


Ol Funciones avanzadas 


— Creación automática de índices. 
Con esta posibilidad podremos realizar 
un extracto o un sumario del texto. 


— Inserción automática de notas a pie 
de página y cabeceras. 


— Escritura en varias columnas. 


— Posibilidad de realización de docu- 
mentos personalizados con la ayuda de 
un fichero de datos. 


— Corrección ortográfica automática. 
— Inclusión de gráficos en el texto. 


Actualmente están apareciendo en el 
mercado, además de tratamientos de 
textos tradicionales, una serie de progra- 
mas que permiten realizar todas las fun- 
ciones necesarias para la edición y com- 
posición de textos, logrando unos docu- 
mentos con una calidad muy similar a la 
de los creados en una imprenta. 


1 Impresoras 


Un punto importante a tener en cuenta 
a la hora de trabajar con un procesador 
de textos es la calidad y el tipo de la im- 
presora disponible, ya que el resultado fi- 
nal del documento depende en gran 
parte de la calidad de la impresora y de 
sus posibilidades. 


PASCAL 


m Comentarios de 
un programa 


ARA que un progra- 
ma resulte más fácil 
de entender, sería 
conveniente poner 
notas explicativas de 
las diferentes partes 
de que consta. Estas 
notas son lo que se 
denomina comentarios, y todos los len- 
guajes de programación permiten aña- 
dirlos a los programas de una manera u 
otra. 


En PASCAL se pueden poner comenta- 
rios en CUALQUIER sitio en que pueda 


(X Esto es un comentario %) 
£ Esto es otro > 


Vamos a escribir ahora el programa 
ASIGNACION que hicimos anteriormente 
con comentarios: 


program Asignacion; 


(x% Este ocupa dos líneas y además, en él pone BEGIN 
END y PROGRAM sin que se entere el compilador %) 


aparecer un espacio en blanco (excep- 
to en medio de un texto), pues a la hora 
de traducir el programa, el compilador 
pasa por encima de ellos; sencillamen- 
te, ignora su existencia. 

El comienzo de un comentario se indi- 
ca con un paréntesis izquierdo inmedia- 
tamente seguido de un asterisco (o bien 
una llave izquierda si nuestro ordenador 
tiene ese símbolo); a partir de ahí, el 
compilador considera que todo es co- 
mentario hasta que se encuentra un as- 
terisco seguido de un paréntesis derecho 
(o bien una llave derecha). Un comenta- 
rio puede ocupar todas las líneas que se 
deseen y dentro de él se puede escribir 
CUALQUIER cosa. Posibles comentarios 
serían, pues: 


(kx Este programa consta de una serie de ejemplos 
de asignación de datos a variables  ) 


const 

Dos = 2; 
var 

N: integer; 


(k En esta variable se guardarán números %) 


C:z char; 


begin 
Ni= 73 


(k y en ésta letras 1) 


(£ Tras esto, en N hay un siete 1) 


Cim A”; 


writeln (*N vale ”,N,” 


N:= N div Dos 
writeln (*N vale ahora ”,N) 
end. 


El propósito de los comentarios es ha- 
cer los programas más claros, y por ello 
conviene ponerlos de manera que se dis- 
tingan de lo demás a primera vista; en el 
ejemplo está claro que hay mejores sitios 
para algunos de ellos. 

Cuando se está desarrollando un pro- 
grama, a menudo sucede que hay par- 
tes ya escritas que no nos interesa utilizar 


program Ejemplo; 


begin 
(A 


writeln (*"¿ lo ves 7”); 
writeln; 


(Hay una situación curiosa que muy rara- 
mente se da: si en lugar de '¿lo ves?" es- 
tuviera, por ejemplo, 'Mira estos dos síim- 
bolos: *), al llegar ahí, el compilador 
creería que acaba el comentario, con lo 
que al pasar a lo siguiente se produciría 
un error.) 


qu Indentación 


A lo largo de todos los ejemplos vistos 
hasta ahora hemos utilizado la denomi- 
nada «indentación», que consiste en uti- 
lizar márgenes izquierdos variables para 


(* En C ahora hay una A mayúscula %£) 


(£ Ahora enseñamos los contenidos de N y C:z %) 


y C vale ”*,C); 


N:= (*X Curioso sitio éste para un comentario %x) N+1; 
writeln (£ y éste aún más Xx) (*N vale ahora ”, N); 


(k podriamos poner 2 en vez de Dos %) + 2; 


(k este programa sólo saca una frase por la pantalla %) 


writeln ("Lo siguiente a esto sale en otra línea.”); 
write ("Pero lo siguiente a esto noz ”); 


% 
writeln (Y, por fin, me despido.”) 
end. 


por el momento. Una solución sería elimi- 
narlas del programa, pero entonces ha- 
bria que volver a escribirlas cuando se 
necesitasen de nuevo. Hay una posibili- 
dad mucho más interesante: si delante y 
detrás de la zona a descartar ponemos, 
respectivamente, (* y ”), el compilador 
creerá que todo es un comentario y pa- 
sará por encima olímpicamente: 


resaltar las diferentes partes de un pro- 
grama. En el programa ASIGNACION, por 
ejemplo, al declarar las variables, sus 
nombres aparecen encolumnados y un 
poco más a la derecha de la palabra 
VAR que marca el inicio de esa zona; 
igualmente, BEGIN y END están encolum- 
nadas, pero las instrucciones que enmar- 
can están todas un poco más a la de- 
recha. 

Por supuesto, no es obligatorio escribir 
así los programas, pero es muy conve- 
niente. Todos los programas que iremos 
escribiendo a lo largo de la colección 
harán un empleo aún mayor de la in- 
dentación. 


«e PASCAL 


um Tipos de datos 
/ básicos 


Hasta ahora hemos visto programas 
manejando básicamente dos tipos de 
datos: números y textos o caracteres 
sueltos. También hemos aprendido a es- 
cribir programas muy sencillos, que siem- 
pre constan de una secuencia de instruc- 
ciones que se ejecutan una detrás de 
otra, una única vez. Antes de empezar a 
estudiar cómo hacer programas más 
complejos, vamos a ver en detalle los ti- 
pos de datos que ya conocemos y uno 
nuevo, el tipo BOOLEAN. 


(X esto muestra números: Xx) 


*readin (Edad); 
Peso := 73; 


Los operadores permitidos son: +, —, *, 
DIV y MOD. Hay dos funciones importan- 
tes disponibles para este tipo de datos: 


— Si escribimos ABS (X), esto da como 
resultado el valor absoluto de X, o sea, X 
mismo si es positivo, o -X si es negativo 
(X puede ser cualquier constante, varita- 
ble o expresión de tipo INTEGER): ABS (-5) 
equivale a 5, al igual que ABS (7 - 2). 


— SAR (X) da como resultado el cua- 
drado de X, X por X (SQAR es la contrac- 
ción de SQUARE, cuadrado en inglés): 
SQR (2 + 2) es 16 y SQR (-7) es 49. 

Estas funciones se pueden utilizar como 
parte de expresiones con total libertad, 
y equivalen a poner en su lugar el resul- 
tado que fueran a dar en el momento de 
evaluar la expresión. 

Los valores que se pueden manejar 
con constante, variables y expresiones 
enteras tienen unos límites que depen- 
den del ordenador y del compilador que 
tengamos. Para conocer estos límites 
existe una constante predeclarada (es 
decir, que se puede utilizar aunque no la 
hayamos declarado nosotros) cuyo nom- 
bre es MAXINT. 


writeln (123, EdadMaxima :5, 2%3 13); 
(£ lo tecleado se guarda en Edad £) 
(* en Peso se guarda el número 73 £) 


El tipo Integer 


Este tipo es el que corresponde a los 
números enteros. Ya hemos aprendido a: 


— escribir constantes: 123, -55, O, 
1987 

— declararlas: const EdadMaxima = 
110; 

— definir variables: var Edad: integer; 
Dia: 1..31; 

— escribir expresiones: (EdadMaxima 
- Edad) * 100 


También sabemos cómo mostrar valo- 
res de tipo INTEGER, leerlos desde tecla- 
do y guardarlos en variables: 


Por ello, si el valor de MAXINT («máximo 
entero») fuese 32767, que es el valor más 
corriente con la mayoría de compilado- 
res para ordenadores personales, los va- 
lores de tipo INTEGER deben estar entre 
-32767 y +32767, ambos inclusive. Así, la 
expresión 1000 * 1000, por ejemplo, da- 
ría un resultado que se sale de los límites 
provocando o bien la parada del progra- 
ma o bien un resultado erróneo, según el 
compilador utilizado. Igualmente, la ex- 
presión 1000 * 1000 div 10000, aunque da 
un resultado aceptable (100), como se 
hace primero la multiplicación, produci- 
rá una situación similar al ser calculada. 

Para conocer nuestro límite particular, 
podríamos emplear el siguiente progra- 
ma: 


program MaximoEntero; 
begin 

writeln ("Nuestro límite es ”,MAXINT)=" 
end. 


Para cuando se tengan que manejar 
números que, o bien no son enteros, o 


bien se salen de los límites, existe el tipo 
REAL, que veremos en otra ocasión. 


. El tipo Char 


Este tipo es el utilizado para manejar 
caracteres sueltos, es decir, una letra, 
una cifra, un signo de puntuación, un es- 
pacio en blanco, etc. Al igual que con el 
tipo INTEGER ya sabemos: 

— escribir constantes: 'A', 'O”, '/', *.” 

— declararlas: const MiLetraFavorita = 5 
pos 

— definir variables: var Inicial: char: Ci- 
fra: *0”..'9”; 


así como mostrar y leer de teclado valo- 
res de tipo CHAR y guardarlos en va- 
riables: 


inicial:i=>Z”; 
writeln (MiLetraFavorita, */”, Inicial)z 
readin (Cifra); 


El conjunto de caracteres disponibles 


depende del ordenador, pero SIEMPRE 
existen, al menos, las 26 mayúsculas del 
alfabeto inglés: 


las nueve cifras decimales: 
0 iZ ADO Y Bs 


y el espacio en blanco. 


E Ordinales 


Internamente, y sin que nosotros nos 
demos cuenta de ello, los caracteres se 
guardan en memoria utilizando números, 
uno distinto para cada posible valor. 
Son lo que se denomina NUMEROS ORDI- 
NALES del conjunto de caracteres. 

Las letras están ordenadas según estos 
números. Si, por ejemplo, el ordinal de la 
letra A fuera el 65, el de la B sería el 66 y 
así hasta la Z. Lo mismo sucede con las ci- 
fras del 0 al 9. 

Si se quisieran utilizar estos números en 
expresiones de tipo entero, la función 


ORD (C), donde C es un valor cualquiera 
de tipo CHAR, proporciona un resultado 
de tipo INTEGER igual al ordinal del carác- 
ter. A la inversa, si X fuera un valor de tipo 
INTEGER, CHRQX) nos proporcionaría el ca- 
rácter cuyo ordinal es X. 

Utilizando la función ORD, vamos a es- 
cribir un programa que nos sirva para co- 
nocer los ordinales de algunos caracte- 
res de nuestro ordenador: 


program SacaOrdinales; 
(k esta constante de texto es para escribir 
menos: £) const Txt = *”El ordinal del carácter”; 


begin 
writeln (Txt, 'A”, * es ”, ord (*A'9)3 
writeln (Txt, "a, * es ”, ord (*a”)); 
writeln (Txt, 0”, ” es ”, ord (”0*));3 
writeln (Txt, "espacio en blanco es ”, 
ord (” *))3 

(£ poner aquí todos las instrucciones 
que se quieran: %)en; 


Existen además otras dos funciones: 

— PRED (C), donde C es un carácter, 
nos devuelve el carácter anterior a él. 
PRED (“Y”) equivale, pues, a poner 'X'. 

— SUCC (C) devuelve el siguiente a C. 
(El lector atento se dará cuenta en segui- 
da de que PRED(C) equivale a poner 


CHR(ORD(C)-1) y 
CHR(ORD(C)+1.) 

Normalmente, en los ordenadores per- 
sonales se utilizan los códigos ASCII (si- 
glas de American Standard Code for In- 
formation Interchange, pronunciado 
«Aaski») en que las letras mayúsculas em- 
piezan por el ordinal 65, las cifras por el 
48 y el espacio en blanco, por ejemplo 
tiene el 32. 

Por ahora, en lo referente a textos con 
más de un carácter, lo único que sabe- 
mos hacer es escribirlos y declararlos 
como constantes. Por supuesto, es posi- 
ble leerlos de teclado y utilizar variables 
para guardarlos, pero el tipo especial de 
dato necesario para ello se verá en otra 
ocasión. 


Succ(c) a 


Ol El tipo Boolean 


Si queremos que nuestros programas 
lleguen a ser más útiles de lo que son los 
que hemos escrito hasta el momento, 
está claro que deben ser capaces de to- 


«e PASCAL 


mar decisiones en función de determina- 
dos resultados. Por ejemplo: 


«Si la edad es superior a 17 años, en-: 


tonces hacer tal cosa». 

Cuando el ordenador se encontrase 
con que tiene que tomar una decisión se- 
mejante, la primera operación que de- 
bería efectuar sería la de comparar la 
edad (que podría ser, por ejemplo, la 
contenida en una variable de tipo INTE- 
GER) con 17 para ver si es mayor o no. Si 
fuese mayor, el resultado de la opera- 
ción «Edad es superior a 17» sería CIERTO 
y en caso contrario sería FALSO. 

Las expresiones de este tipo, que pue- 
den dar como resultado CIERTO o FALSO, 
se llaman expresiones LOGICAS o de tipo 
BOOLEAN. 

En PASCAL existe el tipo de dato BOO- 
LEAN, que es aquél que sólo puede tomar 
uno de entre dos posibles valores, CIER- 
TO y FALSO, valores que se representan 
mediante las constantes predefinidas 
TRUE (cierto en inglés) y FALSE. 

— Al igual que sucede con los otros ti- 
pos que ya conocemos, podemos tener 
variables BOOLEAN donde guardar estos 
datos y que, por tanto, sólo pueden to- 
mar los valores TRUE y FALSE: 


var MayorDeEdad : boolean; 
— Se pueden asignar valores a esas 
variables: 
MayorDeEdad := true; 


— Se pueden mostrar valores BOO- 
LEAN: 


writeln (MayorDeEdad); 


(Esto último haría que se escribiera la 
palabra TRUE o FALSE, según el valor de la 
variable.) 


— Sin embargo, NO se puede utilizar 
READ O READLN con variables BOOLEAN. 


Comparaciones entre 
== números 


Muy frecuentemente se desean com- 
parar números enteros para tomar deci- 


siones, como en el caso de la edad. Para 
ello se utilizan expresiones lógicas de 
comparación que pueden dar como re- 
sultado el valor lógico TRUE o FALSE, según 
el caso. Estas expresiones siempre cons- 
tan de los dos valores a comparar (cons- 
tantes, variables o expresiones enteras) 
separados entre sí por un operador de 
comparación: 


Edad > 17 


Esta expresión debe leerse como 
«Edad mayor que 17», y daría TRUE o FAL- 
SE como resultado según que EDAD fuese 
mayor o no que 17, respectivamente. Po- 
dríamos poner, pues: 


MayorDeEdad := (Edad > 17); 


Además del operador de compara- 
ción «mayor que», cuyo simbolo es >, 
existen los siguientes: 


>= significa «mayor o igual que» 
< significa «menor que» 

<= significa «igual o menor que» 
= significa «igual a» 

<> significa «distinto de» 


Además, la función ODD (X) (odd signi- 
fica impar entre otras cosas), donde X es 
un valor entero, devuelve el valor TRUE si 
X es impar y FALSE en caso contrario. 

Vamos a escribir un programa que 
guarde en una variable la edad que te- 
cleemos y nos diga a continuación si 
corresponde a un mayor de edad y si es 
una edad impar: 


program MiraEdad; 
const 
LimiteMenores = 17; 


var 
Edad 3 integer; 
MayorDeEdad : boolean; 
begin 

write ("Por favor, teclee su edad: ”); 
readin (Edad); 

MayorDeEdad :=' (Edad > LimiteMenores); 


(K ahora sacamos las respuestas con TRUE O 
FALSE: %) writeln ("¿Es mayor de edad? ”, 

MayorDeEdad); writeln (”¿Es una edad impar? ”, 
odd (Edad)) end. 


a Redirección 
de la entrada 
y la salida 


S/DOS permite dirigir 
o redireccionar la en- 
trada o la salida de 
un programa, de ma- 
nera que ésta se pro- 
duzca donde desee 
el usuario, que bien 
puede ser a un fiche- 
ro o a un dispositivo periférico. Por ejem- 
plo, se puede redireccionar la salida de 
un comando para que el resultado, en 
vez de obtenerse por pantalla, aparezca 
por la impresora, o redirigir la entrada de 
un programa para que obtenga datos de 
un fichero en disco en vez del teclado. 

La redirección se especifica con los 
signos “<” para la entrada, y “>” para 
la salida. Por ejemplo, un comando con 
la sintaxis: 


orden > fichero 


estaría dirigiendo su salida hacia el fi- 
chero, cuyo nombre se especifica. De 
manera análoga se podria hacer: 


orden < fichero 


para redireccionar la entrada. 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS MS/DOS (2) 


PANTALLA FICHERO EN DISCO 


VUOSIUAMNI 


' la salida como la entrada, ya sea a 
á ficheros en disco como a dispositivos 
periféricos. 


| Conexión de Programas 
sw mediante «PIPES» 


Otra característica que posee MS/DOS 
es la de poder conectar programas me- 
diante un mecanismo llamado “pipe-li- 
ne” (tubería). La “conexión” consiste en 
que los resultados de un programa pue- 
den ser tomados por un segundo como 
datos de entrada, y la salida de éste 
puede ser a su vez la entrada de un ter- 
cero, y así sucesivamente. El operador 
utilizado para esto es el símbolo “*:”, y el 
formato de dos programas conectados 
por “pipes” es: Programa 1: Programa 2. 


Ad En MS/DOS es posible redireccionar tanto 


so OTROS LENGUAJES 


> 
[a En MS/DOS los programas pueden 

conectarse de manera que la salida de 
uno sea la entrada de otro. 


Es importante resaltar el hecho de que 
el primer programa debe generar datos 
capaces de “alimentar” al programa 
que viene a continuación, el cual debe 
“consumirlos” y generar nuevos datos 
para que sean utilizados por el programa 
siguiente (si hubiese), y así hasta finalizar 
la cadena. 


Comandos fundamentales 
de MS/DOS 


MS/DOS tiene un intérprete de coman- 
dos (el fichero COMMAND.COM), que es- 
pera a que tecleemos cualquier orden. 
Si es correcta, se encarga de procesar- 
la, y si no lo es devolverá un mensaje de 
error. Dentro de los comandos u órdenes 
que puede procesar este intérprete hay 
que distinguir dos tipos: 


— Comandos que están siempre en 
memoria RAM (internos). 

— Comandos que están almacenados 
en disco (externos). 


Si empleamos una orden interna, 
COMMAND.COM no tiene más que mirar 
en la memoria RAM del ordenador y eje- 
cutarla. Si, por el contrario, hacemos re- 
ferencia a una orden externa, se provo- 
ca una búsqueda en el disco del fichero 
correspondiente a ese comando. 

Dentro de todas las órdenes de 
MS/DOS, hemos seleccionado las más im- 
portantes, las cuales hemos englobado 
en cuatro grupos: 


— Comandos de tratamiento y mante- 
nimiento de discos. 

— Comandos para operaciones con 
ficheros. 


SALIDA 


— Comandos de salida de ficheros. 
— Comandos de manejo de la estruc- 
tura de ficheros. 


Comandos de tratamiento 
y mantenimiento de discos 


Produce un listado de los ficheros y/o 
subdirectorios del directorio especifica- 
do. La información de este listado in- 
cluye: 


— Nombre y extensión del fichero. 

— Tamaño del fichero (en bytes). 

— Fecha y hora de la última actualiza- 
ción del fichero (si nunca se ha modifica- 
do, fecha y hora de su creación). 

— Etiqueta del volumen del disco. 

— Número total de ficheros. 

— Espacio libre en disco. 


Asimismo, puede obtenerse esta infor- 
mación para un solo fichero, o para un 
grupo de ficheros especificados. 


CHKDSK 


Comprueba la situación de un disco en 
lo referente a espacio ocupado y posi- 
bles errores. En su opción normal de tra- 
bajo, CHKDSK muestra la siguiente infor- 
mación: 


— Espacio total en disco y en memo- 
ria RAM. 

— Espacio ocupado en disco por los fi- 
cheros del sistema (ocultos al trabajo de 
DIR). 

— Espacio ocupado en disco por los fi- 
cheros de usuario. 

— Espacio libre en disco y en me- 
moria. 


| 362496 bytes es el espacio total en disco 
387912 bytes en 2 archivo(s) oculto(s) 
221184 bytes en 11 archivo(s) de usuario 
102400 bytes disponibles en disco 


262144 bytes total en memoria 
222688 bytes libres en memoria 


[A Ejecución del comando CHKDSK. 


En cuanto a los errores, CHKDSK informa 
de lo siguiente: 


— Daños internos en el disco, como, 
por ejemplo, encontrar sectores o pistas 
inservibles. 


— Bloques de información no ligados 
a ningún fichero dentro del directorio. 


— Almacenamiento de los ficheros en 
sectores no contiguos. 


Realmente esto no es un error, pero 
hace que el acceso a los ficheros se 
haga más lento. Por tanto, si hay muchos 
en este estado, es conveniente pasarlos 
a otro disco. 


FORMAT 


El comando FORMAT es el encargado 
de preparar los discos vírgenes, para su 
posterior utilización como almacena- 
miento secundario de datos y progra- 
mas. 

Durante el formateo, el ordenador exa- 
mina el disquete, indicando los posibles 
defectos que éste pudiera tener. En caso 
de existir alguna anomalía, FORMAT hace 
dos cosas: 


— Advertir al usuario de la presencia 
de los defectos, indicando el tamaño en 
bytes de las zonas defectuosas, así como 
el espacio utilizable. 


[A Una de las funciones del comando 
| FORMAT es marcar las áreas defectuosas 
de los disquetes. 


— Marcar el área defectuosa de ma- 
nera que ésta no sea utilizable por el sis- 
tema operativo, aunque sí el resto del 
disquete. 

Como casi todos los comandos, FOR- 
MAT tiene una serie de opciones que di- 
versifican sus funciones. Una de las más 
importantes es la que permite incluir los 
ficheros del sistema operativo en el dis- 
quete a formatear, con lo cual se puede 
emplear para inicializar el sistema. 


sYs 


El comando SYS permite cargar los fi- 
cheros del sistema operativo y las pistas 
de inicialización en un disquete previa- 
mente formateado. La diferencia que 
hay entre esta orden y el comando FOR- 
MAT con la opción antes mencionada es 
que SYS permite realizar esta operación 
en los discos protegidos, cosa que FOR- 
MAT no hace. 


DISKCOPY 


Con el comando DISKCOPY se copia el 
contenido de un disquete en otro dis- 
quete, de forma que se obtiene una re- 
producción exacta del original. En casi 
todas las versiones de MS/DOS, DISKCOPY 
formatea el disco destino en caso de que 
no lo esté. Además, no admite disquetes 
con defectos (aquéllos que detecta FOR- 
MAT), ni tampoco optimiza los resultados 
del disco, es decir, si en el disco origen 
estaban los ficheros distribuidos esporá- 
dicamente, en el disco destino se copia- 
rán con esa misma distribución. 


2 OTROS LENGUAJES 


E manera exacta el contenido de un 
disquete. 


DISKCOMP 


Con el comando DISKCOPY se copia el 
contenido de un disquete en otro dis- 
Normalmente utilizaremos DISKCOMP 
después de utilizar el comando DISK- 
COPY, para asegurarnos de que los dos 
disquetes son identicos. Asimismo, pode- 
mos comparar sólo la primera cara de los 
disquetes mediante la opción correspon- 
diente. 


Hay que resaltar que este comando 
compara disquetes completos. En caso 
de querer comparar ficheros por separa- 
do se utiliza la orden COMP. 
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